6.4.. Naći program za izračunavanje aritmetičku sredinu tri broja.

Listing programa:

PROGRAM sredina;
VAR                    { deklarisanje promjenljivih }
  a, b, c:  Integer;   { cjelobrojne promjenljive }
  as : Real;           { realne promjenljive }
BEGIN
  WRITELN('Aritmeticka sredina tri broja');    { naslov }
  Write('a, b, c = ');                         { ulazne promjenljive }
  Readln(a, b, c);                             { ulaz - ucitavanje promjenljivih }
  
  as := (a + b + c) / 3;                       { obrada - sumu tri broja s= a+b+c podijeli sa 3  }
  
  Writeln('as=', as:4:2);                      { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index