Напишите программу для паскаль! вычислить площадь прямоугольного треугольника по заданным длинам двух катетов а и b

var  
 a, b, c, S, P : real;   
 begin   
write('Введите катет a : ');readln(a);   

write('Введите катет b : ');readln(b);        

c := sqrt(sqr(a)+sqr(b));       
 
P := a + b + c;  
S := (a*b)/2;       
   writeln('Площадь равна : ', S);        
readln;
end.