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

Program prog2;{ўлзЁб«пҐв min Ї®«®¦ЁвҐ«Ў­л© Є®аҐ­м га-­Ёп}
Uses Crt;
type
func=function(x:real):real;
mas=array[1..100] of real;
var
 ni,ki,shag:real;
 i,kol,num:integer;
 x,min:real;
 a:mas;

{$F+}
Function super(x:real):real;
begin
 super:=sin(x);
end;
{$F-}

Procedure Kruto(ni,shag:real;kol:integer;f:func;var a:mas;n:integer);
begin
x:=ni;n:=0;
For i:=1 to kol Do begin
if f(x)*f(x+shag)<0 then begin min:=(2*x+shag)/2; n:=n+1; a[n]:=min;
end;
x:=x+shag;
end;
num:=n;
end;

Procedure Kruto1(a:mas;n:integer);
begin
min:=-1;
For i:=1 to n Do
if a[i]>0 then min:=a[i];
if min=-1 then begin
writeln('Џ®«®¦ЁвҐ«м­ле Є®а­Ґ© ­Ґв');exit;end;
for i:=1 to n Do
if (a[i]<min) and (a[i]>0) then min:=a[i];
writeln;
Writeln('x=',min:4:2);
end;


begin
 ClrScr;
 Write('‚ў-⥠X ­ з.:');Read(ni);
 Write('‚ў-⥠X Є®­.:');Read(ki);
 Write('‚ўҐ¤ЁвҐ и Ј :');Readln(shag);
 kol:=round((ki-ni)/shag);
 Kruto(ni,shag,kol,super,a,num);
 For i:=1 to num Do begin
 write(a[i]:3:2,'   ');
 end;
 Kruto1(a,num);
 readln;
end.