Izracunati površinu kvadrata za upisanu vrijednost stranice.

Listing programa:

PROGRAM Povrsina_kvadrata; 
VAR              { deklarisanje promjenljivih }
  a, p : Real;   { realne promjenljive }
BEGIN
  WRITELN('Povrsina kvadrata');     { naslov }
  WRITE('a ');                      { ulazna promjenljiva }
  READLN(a);                        { ulaz - ucitavanje promjenljive }
  
  p := SQR(a);                      { obrada - proracun }
  
  WRITELN('a = ', a, '  Povrsina kvadrata je : ', p);  { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index