Приведенный вами пример просто выводит числа от 1 до 30, но пропускает число 3 и выводит число 4 после числа 2. Вот пример кода на Паскале, который делает именно это:

program Numbers;
var
i: integer;
begin
i := 1;
while i <= 30 do
begin
if i <> 3 then
begin
write(i, ' ');
end
else
begin
write('4 ');
end;
i := i + 1;
end;
end.

Этот код будет выводить числа от 1 до 30, пропуская число 3 и выводя вместо него число 4 после числа 2.