Составить алгоритм нахождения диагонали прямоугольника если известны его стороны

program zz1;

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

begin

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

read (a);

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

read (b);

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

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

end.