Найти квадрат наибольшего из трех чисел

var

a, b, c : integer;

begin

writeln ('Введите три числа:');

readln (a, b, c);

if a > b then

if a > c then writeln (sqr (a))

else writeln (sqr (c))

else if b > c then writeln (sqr (b)) else writeln (sqr (c));

end.