Как выполнить. Вычислить гипотенузу прямоугольного треугольника, если известны его катеты. В Паскале

program zz1;var a, b :integer; // задаем переменные целого типаc:real; // задаем переменные не целого типа


beginwrite(' введите первый катет прямоугольного треугольника a '); // вводим с клавиатуры первое число read(a);write(' введите второй катет прямоугольного треугольника b '); // вводим с клавиатуры второе число read(b);c:= sqrt(sqr(a) + sqr(b)); // высчитываем гипотенузу прямоугольного треугольника по теореме Пифагораwrite(' Гипотенуза прямоугольного треугольника = ', c); // выводим ответ end.