Решение №16 из главы 13.1 Вывести на экран все числа последовательности, 8 10 3 12 14 3 16 18 3 20 22 3 и т.д

Задача №16

Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д

program pascal_for_8_10_3;
var i,n,count,length,first_number,three,step : integer; // секция обьявления переменных

begin // начало тела программы
count := 0;
three := 3;
first_number := 8;
writeln( 'Input length :');
readln( length );
if( length <= 0 ) then
  writeln( 'end' )
else
begin
  writeln( 'Input step :');
  readln( step );
  for i := first_number to length do
  begin
    if( i mod 2 ) = 0 then // если четное
    begin
      write( i , ' ' ); //выводим 
      count += 1; // увеличиваем счетчик
    end;
    if( count = step ) then // счетчик равен вводимому значению шага
    begin
      write( three ,' ' ); // выводим цифру 3
      count := 0; // сбрасываем счетчик
    end;
  end;
 
end;
end. // завершение тела программы

Key Words for FKN + antitotal forum (CS VSU):