Ввести длины сторон треугольника найти периметр и площадь.

Var per, a, b, c:integer;

s, p:real;

begin

writeln ('Введите три стороны треугольника: ') ;

readln (a) ;

readln (b) ;

readln (c) ;

per: = a+b+c;

p:=per/2;

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

write ('Периметр равен: ') ;

writeln (per) ;

write ('Площадь равна: ') ;

write (s) ;

end.