Язык програмирования PASKAL/задача:Даны катеты прямоугольного треугольника a и b.Найти...

Question

Язык програмирования PASKAL/
задача:
Даны катеты прямоугольного треугольника a и b.Найти гипотенузу c и P периметр:
P=a+b+c
c=корень из a2+b2
РЕШИТЕ ПОЖАЛУЙСТА СРООООЧНО!!!!))))***

Answer 1

Program z1;
var a,b,c,P:real;
begin
Writeln('Введите стороны a и b: ');
Write('a = '); read(a);
Write('b = '); read(b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
Writeln('Гипотенуза равна: ',c);
Writeln('Периметр треугольника равен: ',P);
end.