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