6.4.. Učitati 2 broja. Izračunati korijen aritmetičke sredine njihovih apsoltnih vrijednosti.

Listing programa:

PROGRAM P06411141;
VAR               { deklarisanje promjenljivih }
  a, b : INTEGER; { cjelobrojne promjenljive }
  x : REAL;       { real za korijen broja }

BEGIN
  WRITELN('Korijen aritmeticke sredine apsolutnih vrijednosti');     { naslov }
  WRITE('1. broj ');          { ulazne promjenljiva }
  READLN(a);                  { prvi broj}
   
  WRITE('2. broj ');          { drugi broj }
  READLN(b);

  x := SQRT((ABS(a) + ABS(b)) / 2);  { korijen broja }

  WRITELN('a = ', a, '  b = ', b, '   x = ', x);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index