6.. Učitati 3 broja. Naći sumu prvog i trećeg te razliku trećeg i prvog.

Listing programa:

PROGRAM P06411154;
VAR              { deklarisanje promjenljivih }
 a, b, c, x, y :  REAL;
BEGIN
  WRITELN('suma i razlika');  { naslov }
  
  Write('1. broj ');
  Readln(a);      { ulaz - ucitavanja promjenljiva }

  Write('2. broj ');
  Readln(b);      { ulaz - ucitavanja promjenljiva }

  Write('3. broj ');
  Readln(c);      { ulaz - ucitavanja promjenljiva }

  x := a + c;
  y := c - a;

  Writeln( 'a = ', a, 'b = ', b, 'c = ', c);      { izlaz - ispis }
  Writeln( 'Suma prvog i treceg = ', x, '  Razlika treceg i prvog = ', y);      { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index