Найдите квадрат наибольшего из чисел a b введите результат сравнения на экран pascal abc

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

Программа на языке Pascal ABC, которая находит квадрат наибольшего из двух чисел a и b:

program findMaxSquare;
var
a, b, maxNum, square: integer;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if a > b then
maxNum := a
else
maxNum := b;
square := maxNum * maxNum;
writeln('Квадрат наибольшего числа: ', square);
end.

Пользователь должен ввести два числа a и b, а программа выведет квадрат наибольшего из них.