Program Z-1
var: a,b,c,P
begin
writeln("ведите a,b")
reabln(a;b;c)
sqr(P): = a+b+c
writeln;
end.
Вроде так
