1
2
3
4
5
6
7
8
9
10
uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
Объяснение:
1
2
3
4
5
6
7
8
9
10
uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
Объяснение: