program TestFor3;
    
begin
    for i := 1 to 3 do begin
        for j := 4 downto 1 do begin
            k := i + j;
        END
    end;
end.