С клавиатуры вводится число a - катет прямоугольного треугольника. Второй катет на 5 единиц длиннее. Найти c - гипотенузу этого треугольника.
Решите, пожалуйста, в Pascal. И объясните, как.

var a,b,c:real;

begin

write('a = ');

readln(a);

b:=a+5;

c:=sqrt(a*a+b*b);

writeln('c = ',c:4:2);

end.

Пример:

a = 3

c = 8.54