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

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