1.написать программу нахождения периметра треугольника .значение сторон вводятся с клавиатуры. 2. написать программу нахождения s прямоугольного треугольника. значения катетов вводятся с клавиатуры!

Периметр треугольника:

Площадь прямоугольного треугольника:

var

 a, b, c: real;

 p, s: real;

begin

 // Задача 1 \/

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

 readln(a, b, c);

 p := a + b + c;

 writeln('p=', p);

 //Задача 2 \/

 Write('Введите 2 катета: ');

 readln(a, b);

 s := 0.5 * a * b;

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

end.