Помогите пожалуйста! Паскаль

 program CalculateTriangleArea; 
var 
  cathetus1, cathetus2, hypotenuse, area: real; 
begin 
  writeln('Введите длину первого катета (в см): '); 
  readln(cathetus1); 
   
  writeln('Введите разность между гипотенузой и вторым катетом (в см): '); 
  readln(cathetus2); 
   
  // Вычисление гипотенузы 
  hypotenuse := sqrt(sqr(cathetus1) + sqr(cathetus2)); 
   
  // Проверка на нулевые значения 
  if (cathetus1 <= 0) or (cathetus2 <= 0) then 
    writeln('Ошибка: Введите положительные значения для катетов.') 
  else 
  begin 
    // Вычисление площади треугольника 
    area := 0.5 * cathetus1 * cathetus2; 
    writeln('Площадь треугольника: ', area:0:2, ' кв. см'); 
  end; 
end.