6.4.. Izračunati zapreminu kocke.

Listing programa:

PROGRAM P06411068;
VAR               { deklarisanje promjenljivih }
  a, V : Real;    { realne promjenljive }
BEGIN
  WRITELN('Zapremina kocke');  { naslov }
  
  Write('Stranica '); 
  Readln(a);           { ulaz - stranica }
    
  V := a * a * a;        { obrada - povrsina }
    
  Writeln('a = ', a, ' V = ',V);  { ispis - stranica i povrsina }
  READLN;
END.

Ispis na ekranu:

Index