Найдите квадрат наибольшего из чисел a и b. Выведите результат сравнения на экран. Программу напишите на языке программирования паскаль

var a,b:integer;beginwriteln('Введите два числа:');readln(a,b);if (a>b) then writeln(a,' > ',b,', ',a,'^2=',a*a) else writeln(b,' > ',a,', ',b,'^2=',b*b);end.Пример:Введите два числа:5 88 > 5, 8^2=64