6.4.. Napisati program koji za ispis rezultata izraza: (x-y)/3.

Listing programa:

PROGRAM P06431055;
VAR              { deklarisanje promjenljivih }
 x , y, a : Real;   { realne promjenljive }
BEGIN
  WRITELN('Izraz');  { naslov }
 
  Write('1. broj ');
  Readln(x);               { 1. broj  }
  Write('2. broj ');
  Readln(y);               { 2. broj  }

  a := (x - y) / 3;        { izraz }
   
  Writeln('x = ', x, ' y = ', y, '  (x-y)/3 = ', a);      { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index