Помогите, как в Паскале вычислить периметр и площадь прямоугольного треугольника по заданным двух катетов a и b. Скажите как оформляется и что нужно вообще с этим бредом делать?

Program n1;

var a, b, s, p: real;

begin

write ('Введите длину катета a: ') ;

readln (a) ;

write ('Введите длину катета b: ') ;

readln (b) ;

s:=a*b*0.5;

p:=a+b+sqrt (sqr (a) + sqr (b)) ;

writeln ('Периметр треугольника равен ', p,' Площадь треугольника равна ', s) ;

end.