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

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.