Заданы три числа a, b, c.

Если а < 0, то вычислить и напечатать p, равное квадрату

максимального из трех чисел, в противном случае напечатать

сообщение

Var a, b, c, p, max:real;

begin

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

readln (a, b, c) ;

if (a>b) and (a>c) then max:=a;

if (b>a) and (b>c) then max:=b;

if (c>a) and (c>b) then max:=c;

if a<0 then

begin

p:=sqr (max) ;

writeln ('p = ', p:6:3) ;

end

else

writeln ('a положительно ') ;

end.