6.4.. Izračunati površinu kocke.

Listing programa:

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

Ispis na ekranu:

Index