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

Procedure rectdiag(a,b: real; var d: real); begin d: =sqrt(a*a+b*b); end; var a,b,d: real; begin read(a,b); rectdiag(a,b,d); writeln(d); end.

Var z: array [1..10] of integer; i,max,min: integer; begin writeln('введите массив: '); for i: = 1 to 10 do       begin       write('z(',i,') = ');       readln(z[i]);       end; max: =z[1]; min: =z[1]; for i: = 2 to 10 do       begin       if (z[i]> max) then max: =z[i];       if (z[i]< min) then min: =z[i];       end; writeln('наибольшее число = ',max); writeln('наименьшее число = ',min); end.

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('вводите: ');   s+=s.last; writeln(s) end. пример вводите: моя строка! моя если s2 не последний символ строки s1, а самостоятельная строка. begin   var s1: =readlnstring('строка 1: ');   var s2: =readlnstring('строка 2: ');   s1+=s2.last; writeln(s1) end. пример строка 1: моя строка строка 2: тоже моя! моя строка!