Найти площадь треугольника с помощью Pascal.

Program Trykutnyk;

uses Crt;

const a=5; b=3.6; c=4.2;

var p, s: real;

begin

clrscr;

p:=a+b+c;

writeln ('p=', p:5:2);

p:=p/2;

s"=sqrt (p * (p-a) * (p-b) * (p-c));

writeln ('s=', s:5:2);

writeln ('Имя Фамилия');

readln

end.