6.. Napisati program koji generiše trocifren broj, ispiše ga. Zatim ispiše cifre u obrnutom redoslijedu jednu ispod druge.

Listing programa:

PROGRAM P06421122;
VAR
  broj, s, d, j: Integer;
BEGIN
  RANDOMIZE;
    WRITELN('cifre trocifrenog');  { naslov }

  broj := TRUNC( (1000-100) * RANDOM) + 100;     { trocifren broj }
  
  s:= broj div 100;            { cifra stotica }
  d:= broj mod 100 div 10;     { cifra desetica }
  j:= broj mod 10;             { cifra jedinicia }
 
  WRITELN('Broj ', broj);
  WRITELN('cifra jedinica ', j);
  WRITELN('cifra desetica ', d);
  WRITELN('cifra stotica ', s);
  READLN;
END.

Ispis na ekranu:

Index