Даны длины катетов прямоугольного треугольника. Вычислить длину гипотезу и площадь. Написать программу и блок-схему.

var a,b,c,s: real;

begin

  read(a,b);

  c:=sqrt(sqr(a)+sqr(b));

  s:=0.5*a*b;

  write('Гипотенуза треугольника равна: ',c,', площадь равна: ',s);

end.

Вот программа