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

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.