Составьте программу(паскаль) для нахождения площади и периметра треугольника

Program triangle;
uses crt;

var a,b,c,p,s: real;
begin clrscr;

write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);

writeln;
p:=a+b+c;
Writeln('P =  ', p:0:3);
p:=p/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('S =  ', s:0:3);
readln;
end.