Penggunaan perulangan For dalam blok statement untuk membuat tabel

Penggunaan perulangan For dalam blok statement untuk membuat tabel

            Uses Crt;
            Var
                a,b,c : Integer;
                bagi  : Real;
            Begin
                 Writeln('----------------------------------------------');
                 Writeln('       a        a*a       a*a*a          1/a        ');
                 Writeln('----------------------------------------------');
                 For a := 1 To 10 Do
                 Begin
                  b:= a*a;
                  c:=a*a*a;
                  bagi := 1/a;
                  Writeln(a:4,c:10,d:10,bagi:12:3);
                 End;
                 Writeln ('----------------------------------------------');
            End.
maka hasilnya  :


                 ----------------------------------------------
                  a       a*a       a*a*a            1/a
                 ----------------------------------------------
                  1         1           1             1.000
                  2         4           8             0.500
                  3         9          27            0.333
                  4        16         64            0.250
                  5        25        125           0.200
                  6        36        216           0.167
                  7        49        343           0.143
                  8        64        512           0.125
                  9        81        729           0.111
                 10       100      1000         0.100
                ----------------------------------------------