Contoh perulangan dengan menggunakan blok statement:

Contoh  dengan menggunakan blok statement:

           cara penulisannya dengan pada awal blok diawali dengan Begin dan
         pada akhir blok diakhiri dengan End;

             Uses Crt;
             Var
                  i : Integer;
             Begin
                  For i:= 1 To 10 Do
                  Begin
                       Writeln ('Tefa');     {  blok statement  }
                  End;
            End.

           Hasil yang akan didapat akan sama dengan contoh yang pertama,
         tapi yang harus diingat disini untuk penggunaan blok pada perula-
         ngan For biasanya mempunyai banyak statement [lebih dari 1  state-
         ment]