Процедуры

[perojenko]

Даны 5 чисел а,b,c,d,e. Вычислить s= среднее арифметическое (abc) + среднее арифметическое (bcd)+ среднее арифметическое (cde).
вычислить среднее арифметическое значение трех чисел оформить в виде процедуры и в виде функции.

[capta1n]

program capta1n;
var
 a,b,c,d,e : real;
 s,x : real;

 procedure sred ( x1,x2,x3 : real; var x0 : real );
 begin
   x0:=(x1+x2+x3)/3;
 end;
begin

  writeln ('Vvedite 4isla: ');
  write ('a= '); readln (a);
  write ('b= '); readln (b);
  write ('c= '); readln (c);
  write ('d= '); readln (d);
  write ('e= '); readln (e);

  s:=0;
  sred (a,b,c,x);
  s:=s+x;
  sred (b,c,d,x);
  s:=s+x;
  sred (c,d,e,x);
  s:=s+x;

  writeln ('s= ',s:0:2);
  writeln ('sred= ',s/3:0:2);
  readln

end.

[capta1n]

program capta1n;
var
 a,b,c,d,e : real;
 s : real;

 function sred ( x1,x2,x3 : real ) : real;
 begin
   sred:=(x1+x2+x3)/3;
 end;
begin

  writeln ('Vvedite 4isla: ');
  write ('a= '); readln (a);
  write ('b= '); readln (b);
  write ('c= '); readln (c);
  write ('d= '); readln (d);
  write ('e= '); readln (e);

  s:=sred(a,b,c)+sred(b,c,d)+sred(c,d,e);

  writeln ('s= ',s:0:2);
  writeln ('sred= ',s/3:0:2);
  readln

end.

[perojenko]

Огромное спасибо, Капитан Пронин, внук Майора Пронина =)))