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

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