• Source
    1. program for2;
    2. var
    3. i,j:integer;
    4. begin
    5. for i:= 1 to 3 do
    6. for j:=1 to 2 do
    7. writeln('i = ',i,' j = ',j);
    8. end.