Записать программу площади прямоугольного треугольника

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.