Помогите пожалуйста решить задачку

помогите пожалуйста решить задачку
Программа Pascal ABC
Дана площадь круга и площадь квадрата.
Составьте программу которая вычисляет площади и выводит на экран большую из них.

  • Паскаля ABC нет под руками, так что пишу консольное приложение на Delphi, уберете просто лишние строки, на которые сматерится компилятор.
    program Project5;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;

    var
    R, A, SR, SA, Pi : Real;
    begin
    writeln('Введите радиус круга: ');
    read(R);
    writeln('Введите длину стороны квадрата: ');
    read(A);
    writeln;
    Pi := 22/7;
    SR := 2 * Pi * R;
    SA := A * A;
    if ( SA > SR) then
    writeln('Площадь квадрата больше площади круга и равна = ',SA:-10:3)
    else
    begin
    if ( SA = SR ) then
    writeln('Площади квадрата и круга равны! ')
    else
    writeln('Площадь круга больше площади квадрата и равна = ',SR:-10:3);
    end;
    writeln('Нажмите любую клавишу для выхода... ');
    readln;
    writeln;
    readln;
    { TODO -oUser -cConsole Main : Insert code here }
    end.

  • могу написать код на делфи, если поможет