Дз по информатике pascal помогите

Question

надо дополнить программу так, что бы она ещё показывала все чётные числа а не только их количество
  var:n, k, I: integer
begin
  writeln ('Введите переменную n');
  read (n);
  k:=0;
  for I:= to n do
  if I mod 2=0 then k:=k+1;
  writeln ('Количество чётных чисел=', k) ;
end

link_18 · Accepted Answer

var 
  n, k, I: integer; 
begin 
  writeln('Введите переменную n'); 
  readln(n); // Используем readln для корректного чтения ввода 
  k := 0; 
  writeln('Чётные числа:'); 
  for I := 1 to n do 
  begin 
    if I mod 2 = 0 then 
    begin 
      writeln(I); // Выводим каждое чётное число 
      k := k + 1; // Увеличиваем счётчик чётных чисел 
    end; 
  end; 
  writeln('Количество чётных чисел = ', k); 
end.

sable_55 · Answer

только один вопрос
зачем в информатике учат программированию