Даны два катета прямоугольного треугольника найти его гипотенузу решите через поскаль

Program test;
var
a,b,g:real;
begin
Writeln('Длина катетов a,b: ');
readln(a,b);
g:=sqrt(sqr(a)+sqr(b));
writeln(g);
end.