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

vara,b,c: integer; beginwriteln ('Введите три числа: '); 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.