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

var a,b:real;

begin

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

read(a,b);

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

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

end.

Program n1;var a,b: real;beginwriteln('введите катеты прямоугльного треугольника: ');readln(a,b);writeln('гипотенуза: ',sqrt(a*a+b*b));write('площадь: ',a*b/2);end.