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

program zz1;

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

c:real; / / задаем переменные не целого типа

begin

write (' введите первый катет прямоугольного треугольника a '); / / вводим с клавиатуры первое число

read (a);

write (' введите второй катет прямоугольного треугольника b '); / / вводим с клавиатуры второе число

read (b);

c: = sqrt (sqr (a) + sqr (b)); / / высчитываем гипотенузу прямоугольного треугольника по теореме Пифагора

write (' Гипотенуза прямоугольного треугольника = ', c); / / выводим ответ

end.