Даны три числа a, b и с. вычислить и вывести на экран дисплея значение z, равное квадрату большего из них. паскаль

Var a,b,c,z:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
z:=a;
if z < b then z:=b;
if z < c then z:=c;
WriteLn(z*z);
End.