Написать программу на вычесление гипотенузы с сведёными значениями двух катетов

var 
a, b: real;

begin 
write('Введите a,b: '); 
readln(a, b); 
writeln('Гипотенуза = ', sqrt(sqr(a) + sqr(b)):0:2); 
end.