Программа в pascal. определите длину гипотенузы, если известны длины катетов

Program znanija
var
  a,b: real; // катеты
  c: real; // гипотенуза
begin
  write ('Введите длины катетов.');
  readln (a,b);
  c := sqrt(a*a+b*b);
  writeln ('Гипотенуза равна:', c);
end.