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

Question

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

Answer 1

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.