Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Var
a, b, c, p, s : real;
Begin
writeln('Введите катет а: ');
read(a);
writeln('Введите катет b: ');
read(b);
s:=(a*b)/2;
writeln('Площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('Периметр треугольника =', p);
end.