procedure ab;var a, b: real;begin write('введите два числа '); read(a, b); writeln('сумма = ', a + b); writeln('разность = ', a - b); writeln('произведение = ', a * b); writeln('частное = ', a / b);end;var s: real;begin ab; write('введите неотрицательное число '); readln(s); write('корень квадратный = ', sqrt(s));end.