Помогите! Напишите код программы через Pascal. Даны катеты прямоугольного треугольника. Найдите его гипотенузу и площадь

Program n1;

var a, b: real;

begin

writeln ('введите катеты прямоугльного треугольника: ') ;

readln (a, b) ;

writeln ('гипотенуза: ', sqrt (a*a+b*b)) ;

write ('площадь: ', a*b/2) ;

end.

var a, b:real;

begin

write ('Введите катеты прямоугольного треугольника: ') ;

read (a, b) ;

writeln ('Гипотенуза прямоугольного треугольника равна: ', sqrt (a*a+b*b) : 0:3) ;

writeln ('Площадь прямоугольного треугольника равна: ', a*b*0.5) ;

end.