program Triangle;vara, b, c, perimeter, area: real;begin// ввод сторон треугольникаwrite('Введите сторону a: ');readln(a);write('Введите сторону b: ');readln(b);
// вычисление периметраperimeter := a + b + sqrt(aa + bb);
// вычисление площадиarea := 0.5 a b;
// вывод результатовwriteln('Периметр треугольника: ', perimeter:0:2);writeln('Площадь треугольника: ', area:0:2);end.
program Triangle;
var
a, b, c, perimeter, area: real;
begin
// ввод сторон треугольника
write('Введите сторону a: ');
readln(a);
write('Введите сторону b: ');
readln(b);
// вычисление периметра
perimeter := a + b + sqrt(aa + bb);
// вычисление площади
area := 0.5 a b;
// вывод результатов
writeln('Периметр треугольника: ', perimeter:0:2);
writeln('Площадь треугольника: ', area:0:2);
end.