program pascal

CONTOH PERULANGAN NEGATIF:

Uses crt;

Var

a,b : Integer;

Begin

For a := 1 To 3 Do

Begin

For b := 1 To 2 Do Write (a :4,b:2);

Writeln;

End;

End. 

Hasil :

1 1    1 2

2 1    2 2

3 1    3 2