Подпрограммы

uses
    Crt;
 
procedure Mean1(var AMean : Double; var GMean : Double; x, y : Single);
{процедура расчитывает, но не выводит на экран}
begin
    AMean := (x + y) / 2;
    GMean := sqrt(x * y);
end;
 
procedure Mean2(x, y : Single);
{то же самое, только сразу выводит на экран}
begin
    Write('AMean=', ((x + y) / 2):0:2);
    WriteLn('   GMean=', (sqrt(x * y)):0:2);
end;
 
var
    a, b, c, d : Single;
    am, gm : Double;
 
begin
    ClrScr;
    Write('Input a, b, c, d: '); ReadLn(a, b, c, d);
    Mean1(am, gm, a, b);
    Write('AMean=', am:0:2); WriteLn('   GMean=', gm:0:2);
    Mean1(am, gm, a, c);
    Write('AMean=', am:0:2); WriteLn('   GMean=', gm:0:2);
    Mean1(am, gm, a, d);
    Write('AMean=', am:0:2); WriteLn('   GMean=', gm:0:2);
    WriteLn; WriteLn; WriteLn;
    Mean2(a, b); Mean2(a, c); Mean2(a, d);
end.

var a,b,c,d,i:real;
procedure mean(x,y:real;var amean,gmean:real);
begin
 amean:=(x+y)/2;
 gmean:=sqrt(x*y);
end;
begin
 writeln('a,b,c,d=?');
 readln(a,b,c,d);
 mean(a,b,i,b);
 writeln('среднее арифметическое a,b: ',i:0:2,', среднее геометрическое ',b:0:2);
 mean(a,c,i,c);
 writeln('среднее арифметическое a,c: ',i:0:2,', среднее геометрическое ',c:0:2);
 mean(a,d,i,d);
 writeln('среднее арифметическое a,d: ',i:0:2,', среднее геометрическое ',d:0:2);
end.