Версия для печати темы

Function Check(A,B,C:real):boolean;
var s1,s2,p1,p2:real;
begin
 s1:=sqr(a);// площадь квадрата
 p1:=a*4;// периметер квадрата
 s2:=(c*d)/2;//площадь ромба
 p2:=4*sqrt(sqr(c)/4+sqr(d)/4));//периметер ромба
 result:=((s1>s2) and (p1>p2)) or ((s1<s2) and (p1<p2));
end;

for i:=1 to 20 do
 if a[i]<>0 then
  begin
    write(a[i]);
    break;
  end;