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

program zz1;
var a, b, c, S:real; // задаем переменные не целого типа
begin
write(введите первую сторону прямоугольника ); // вводим с клавиатуры исходное значение первой стороны прямоугольника
read(a);
write(введите вторую сторону прямоугольника ); // вводим с клавиатуры начальное значение 2-ой стороны прямоугольника
read(b);
c:= sqrt(sqr(a)+sqr(b)); // вычисляем диагональ прямоугольника по формуле Пифагора
write(диагональ прямоугольника = , c:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после точки
end.