Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и

program zz1;

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

begin

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

read (a);  

write ( введите вторую сторону треугольника ); // вводим с клавиатуры число

read (b);

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

write ( отысканная гипотенуза прямоугольного треугольника = , c:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после точки

end.