Вот код программы!
free pascal
Так?
var a, R: integer; S:real;
begin
writeln('Введите радиус круга');
readln(R);
writeln('Введите сторону квадрата');
read(a);
S:=3.14*R*R;
a:=a*a;
If S>a then write('Площадь круга больше площади квадрата')
else write('Площадь квадрата больше площади круга');
end.
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
var n:=ReadInteger('Число элементов массива');
var a:=ArrRandom(n,-60,140); a.Println(', ');
WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.
<u><em>Тестовое решение:</em></u>
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31
program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.