01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / ELF

Program elf1;
Uses CRT;
Type
func=function(x:real):real;
var
kol,i,verh,niz:integer;
znach,x,shag:real;

{$F+}
Function s(x:real):real;
begin
 s:=sqrt(x-1);
end;
{$F-}

Procedure G(f:func;verh,niz:integer;shag:real;var znach:real);
begin
 znach:=0;x:=verh;
 kol:=round((verh-niz)/shag);
 For i:=1 to kol Do begin
 znach:=znach+f(x);
 x:=x+shag;
 end;
end;

begin
 ClrScr;
 Write('‚ўҐ¤ЁвҐ ўҐае­Ё© ЇаҐ¤Ґ« Ё­в. :');ReadLn(verh);
 Write('‚ўҐ¤ЁвҐ ­Ё¦­Ё© ЇаҐ¤Ґ« Ё­в. :');ReadLn(niz);
 Write('‚ўҐ¤ЁвҐ и Ј Ё­вҐЈаЁа®ў ­Ёп :');Readln(shag);
 G(s,verh,niz,shag,znach);
 Writeln(znach:5:2);
 readln;
end.