Написать программу в паскале + алгоритм. Даны радиус круга и сторона квадрата. У какой...

Question

Написать программу в паскале + алгоритм. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше. Вывести сообщение.

Answer 1

Var a,r,s2:integer;
sk,p:real;
begin 
writeln('a=');
readln(a);
writeln('r=');
readln(r);
p:=3.14;
sk:=p*sqr(r);
s2:=sqr(a);
if sk>s2 then writeln ('plosciadi kruga bolise ')
else writeln('plosciadi kvadrata bolise');
readln;
end.