40 ! даны гипотенуза и катет прямоугольного треугольника. напишите программу для нахождения второго катета и площади треугольника.(информатика 8 класс)^^ заранее кансанмида()

var a,b,c:real;

begin

readln(a,b);{a-gip b-kat}

c:=sqrt(sqr(a)-sqr(b));  {формула с^2=a^2-b^2}

writeln(c:0:0,'второй катет');

writeln(a*b/2:0:0,'площадь');

end.

Program PrTreug;

var a,b,c,s:real;

begin

readln(a,c);

//a и b-катеты, c-гипотенуза

b:=sqrt(sqr(a)-sqr(b));

writeln('Второй катет ->',b);

s:=(b*a)/2;

writeln('Площадь прямоугольного треугольника ->',s);

end.

Программа прикреплена в PascalABC.