Задание по информатике в Pascal ABC Сравните два числа a и b. Из большего числа вычислить C-корень квадратный, а меньшее из них возвести в квадрат D

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal ABC:

program CompareNumbers;
var
a, b, c, d: real;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if a > b then
begin
c := sqrt(a);
d := sqr(b);
end
else
begin
c := sqrt(b);
d := sqr(a);
end;
writeln('Корень квадратный из большего числа: ', c:0:2);
writeln('Квадрат меньшего числа: ', d:0:2);
end.

Эта программа сначала считывает два числа a и b с клавиатуры, затем сравнивает их и вычисляет C-корень квадратный из большего числа и квадрат меньшего числа. Результаты выводятся на экран с двумя знаками после запятой.