Описать
процедуру RectDiag(a, b, d), вычисляющую диагональ
прямоугольника со сторонами a, b (a, b — входные, d
— выходной параметр вещественного типа).

procedure RectDiag(a,b: real; var d: real);begind:=sqrt(a*a+b*b);end;var a,b,d:real;beginread(a,b);RectDiag(a,b,d);writeln(d);end.