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

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