Определить какая из 2-ух фигур - круг или квадрат -имеет наименьшую

программу надобно составить, если я так сообразил?

дада)

Program ploshad;
var a,r,s1,s2:real;
begin
write ('a=');readln(a)
;write('r=');readln(r);
s1:=pi*sqr(r);
s2:=sqr(a);
if s1gt;s2 then writeln('Krug',' S=',s1:2:2)
else
 if s1=s2 then writeln ('Ploshadi ravni') 
else
 if s1lt;s2 then writeln ('Kvadrat',' S=',s2:2:2);
readln
end.

Вот здесь в чем отличие в файле программка выводит значение площади большей фигуры, а у вас наоборот поменяете знаки и написания и всё будет ок.