помогите решить задачу в паскале, нужно составить программу. Дан прямоугольный треугольник, в котором известны два катета

Question

Дан прямоугольный треугольник, в котором известны два катета

найти площадь и периметр

Любовь Козлова · Accepted Answer

Катеты a и b. 
S:=(a+b)/2; 
P:=sqrt(a*a+b*b)+a+b;

Татьяна · Answer

А что ищем? 
Нашелся ваш вопрос. 
Ждите немного. 
PROGRAM Katet; 
USES CRT; 
 VAR A,B,C,P,S:REAL; 
 
BEGIN 
CLRSCR; 
 WRITELN('Даны два катета найти периметр и площадь'); 
 WRITE('Введите А ->');READLN(A); 
 WRITE('Введите В ->');READLN(B); 
 C:=sqrt(a*a+b*b); 
 WRITELN; 
 WRITELN('Гипотенуза С ->',C:5:1); 
 P:=A+B+C; 
 WRITELN('Периметр Р ->',P:5:1); 
 S:=A*B/2; 
 WRITELN('Площадь S ->',S:5:1); 
 WRITELN; 
 WRITELN; 
 WRITELN; 
 
writeln('Для выхода введите 0'); 
readln(a); 
END.

Уже и ждать не надо.