Var k1,k2,s: real; begin writeln('введите два катета в см:'); readln(k1,k2); s:=1/2*k1*k2; writeln('площадь прямоугольного'); writeln('треугольника равна ',s,' кв. см.'); end.