Составить программу нахождения площади прямоугольного треугольника. ввести условия, что длины сторон не могут быть отрицательным числами и сделать комментарий "введите другое число".

Program plochad;var a,c:real;beginwriteln (Введи длину стороны a=);readln (a);if a lt; 0 then writeln (Число не может быть отрицательным! Введите другое число.);writeln (Введи длину основания c=);readln (c);if c lt; 0 then writeln (Число не может быть отрицательным! Введите другое число.);c:= a*c/2;if clt;0 then write (Невозможно решить) else writeln (S=,c);end.