Заданы три числа a, b, c.Если а amp;lt; 0, то вычислить

Var  a,b,c,p,max:real;  
begin 
writeln('Введите 3 числа'); 
readln(a,b,c); 
if (agt;b) and (agt;c) then max:=a; 
if (bgt;a) and (bgt;c) then max:=b; 
if (cgt;a) and (cgt;b) then max:=c; 
if alt;0 then 
begin   
    p:=sqr(max);   
    writeln('p= ', p:6:3); 
end 
else   
 writeln('a позитивно ');
end.