Напишите код программы через 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.