Заданы три числа 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.