дан прямоугольный треугольник с катетами a и b . найти гипотенузу c
Составить программу (информатика)

program z;
var a,b,c:real;
begin
writeln('Введите длину катетов');
read(a,b);
c:=sqr(a) + sqr(b);
c:=sqrt(c);
writeln('Гипотенуза = ',c);
end.