Помогите Пожалуйста записать программу площади прямоугольного треугольника

Program Programma; Uses crt; var a,b,s: real; Begin clrscr;       write('Катет a = ');       readln(a);             write('Катет b = ');       readln(b);       writeln;             if (a<=0) or(b<=0) then       write('Катет не может быть отрицательным или равняться 0')       else       begin       s:=0.5*a*b;       write('Площадь прямоугольного треугольника S = ', s:0:3);       end; End.