составьте программку для определения,что больше площадь круга радиусом a либо площадь

Так?

var a, R: integer; S:real;

begin

writeln('Введите радиус круга');

readln(R);

writeln('Введите сторону квадрата');

read(a);

S:=3.14*R*R;

a:=a*a;

If Sgt;a then write('Площадь круга больше площади квадрата')

else write('Площадь квадрата больше площади круга');

end.

Показываю:

1) Вводишь переменную а

2) Прибавляешь переменную для площади квадрата

3) Добавляешь переменную для площади круга

4) Исполняешь вычисление по формуле и присваиваешь его переменной для площади круга, т.е.  Sk=pi*r*r; (pi сразу задаешь значение - это пи)

5) Исполняешь вычисление по формуле и присваиваешь его переменной для площади квадрата, т.е. S=r*r;

6) Проверка:

если (Sk gt; Sv)

вывести итог

если нет

вывести 2 результат

Фортуны!