Составить алгоритм и написать решение задачи на Паскале: Даны 3 положительных числа. Найти периметр и площадь треугольника с данными сторонами.

program treyg;
var a,b,c,p:integer; s,pol:real;
begin
readln(a,b,c);
p:=a+b+c;
pol:=p/2;
s:=Sqrt(pol*(pol-a)*(pol-b)*(pol-c)) ;
Writeln('Площадь=',s);
Writeln('Периметр =',p)
end.