Napisati program sa funkcijom za izračunavanje aritmetičke sredine brojeva od 1 do n (koristiti REPEAT).

Listing programa:

PROGRAM aritmeticka_sredina;
VAR
  n: Integer;
FUNCTION as(n:Integer):Real;
VAR
  i: Integer;
  s: Real;
BEGIN
  s := 0;
  i:= 1;
  REPEAT
    s := s +  i;
    i := i + 1;
  UNTIL i>n;
  as := s / n;
END;

BEGIN       
  Writeln ('Aritmeticka sredina REPEAT ');
  Write('n ');
  Readln(n);
  writeln('Aritmeticka sredina ', as(n));
  READLN;
END.

Index