7.2.. Učitati dva broja (x i a). Varijabli z pridružiti vrijednost prema slijedećem izrazu:

Opis rješenja:

Listing programa:

PROGRAM P07211064;
VAR                { deklarisanje promjenljivih }
 x, a, z : REAL;   { realne promjenljive }
BEGIN
  Write('Dva broja ');  { ulazne promjenljive }
  Readln(x, a);         { ulaz - ucitavanje promjenljivih }
 
 IF x > a THEN         { ako je x vece od a, x > a tada }
  z : = x / 3          { izraz - kolicnik }
 ELSE                  { inace }
  z := x + 3;          { izraz2 - suma }
  
  Writeln('x=', x, ' a=', a,' z=', z);  { izlaz - ispis }
  READLN;
END.  

Ispis na ekranu:

Index