История изменений

Исправление aureliano15, 14.01.19 01:01 (текущая версия) :

program no2019;

var
        i: Integer;
        year: Integer = 2018;
begin
        for i := 1 to 2 do
        begin
                inc(year);
                writeln('Happy new ', year, ' year!');
                if i = 1 then dec(year);
        end;
end.

program forever2019;

var
        i: Integer;
        year: Integer = 2018;
begin
        for i := 1 to 2 do
        begin
                inc(year);
                writeln('Happy new ', year, ' year!');
                dec(year);
                dec(i);
        end;
end.

Исходная версия aureliano15, 14.01.19 01:01:

program no2019;

var
        i: Integer;
        year: Integer = 2018;
begin
        for i := 1 to 2 do
        begin
                inc(year);
                writeln('Happy new ', year, ' year!');
                if i = 1 then dec(year);
        end;
end.

program forever2019;

var
        i: Integer;
        year: Integer = 2018;
begin
        for i := 1 to 2 do
        begin
                inc(year);
                writeln('Happy new ', year, ' year!');
                dec(year);
                dec(i);
        end;
end.