Напишите программу для вычисления площади, периметра и высоты треугольника

program Help;

uses Crt, Math;

var

cathet, hyp, P : real;

height, S : real;

begin

 writeln ('Enter triangle Cathets: ');

 readln(cathet);

 clrscr;

 P := 2*cathet + sqrt(2*Power(cathet, 2));

 S := (Power(cathet, 2))/2;

 height := (2*cathet)/sqrt(2*(cathet*cathet));

 writeln('triangle perimeter: ',P , '  Area: ', S, '  Height:', height);

end.

Объяснение: