Составить программу на паскаль: найти гипотенузу если известно 2 катета

Program N_1;
Var a,b: real;
Begin  
write('Введите числа a,b: ');
readln(a,b);
writeln('Гипотенуза равна = ',sqr(a)+sqr(b):0:2);
readln;
End.