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;
USES 
  WinCrt;
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 }
END.  

Ispis na ekranu:

Index