program TestFor;
    
begin
    for i := 1 to 5 do begin
        write('i = '); writeln(i:1:0);
    end;
    writeln;
    
    for i := 5 downto 1 do begin
        write('i = '); writeln(i:1:0);
    end;
    writeln;
    
    for i := 1 to 3 do begin
        for j := 4 downto 1 do begin
            write('i = '); write(i:1:0);
            write(', j = '); writeln(j:1:0);
        END
    end;
    
    writeln;
end.