Pascal ABC: Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь

Question

Pascal ABC: Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь

Answer 1

Program prtr;
var a,b,c,S: real;
begin
readln(a); //1 катет
readln(b); // 2 катет
c=sqrt(a*a+b*b); //теорема пифагора
S=0.5*a*b; //площадь
writeln(c);
writeln(S);
end.