var a, b, d: real;begina := 83.5;b := 15.52;
d := sqrta<em>a+b</em>ba<em>a + b</em>ba<em>a+b</em>b;
writeln′Длинадиагоналипрямоугольника:′,d:0:2'Длина диагонали прямоугольника: ', d:0:2′Длинадиагоналипрямоугольника:′,d:0:2;end.
var a, b, d: real;
begin
a := 83.5;
b := 15.52;
d := sqrta<em>a+b</em>ba<em>a + b</em>ba<em>a+b</em>b;
writeln′Длинадиагоналипрямоугольника:′,d:0:2'Длина диагонали прямоугольника: ', d:0:2′Длинадиагоналипрямоугольника:′,d:0:2;
end.