Question

Составить по алгоритму программу на языке программирования Pascal.

Answer 1

var  a, b, c, p: integer; 
   r,s : real;
begin  
write(' a, b, c= ');
readln(a, b, c);
p:=a+b+c; 
r:=p/2;
s:=sqrt(r*(r-a)*(r-b)*(r-c));
writeln ('s=', s,   '   p=', p);
end.

Answer 2

если напишешь хуже не буде, если учитель пишет - пиши!