6.4.. Izračunati obim kocke.

Listing programa:

PROGRAM P06411062;
VAR              { deklarisanje promjenljivih }
  a, O : Real;   { realne promjenljive }
BEGIN
  WRITELN('Obim kocke'); { naslov }
 
  Write('Stranica ');
  Readln(a);             { ulaz - stranica }
   
  O := 12 * a;           { obim }
   
  Writeln('a = ', a, ' O = ', O); { izlaz - stranica i obim }
  READLN;
END.

Ispis na ekranu:

Index