Составить алгоритм и программу: вывести на экран числа, кратные 2 (язык Паскаль)

program zz1;

var i, n:integer; / / задаем переменную цикла целого типа

begin

write (' введите до какого числа будем выводить числа кратные двум ');

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все числа от единицы до введенного числа n

if i mod 2 = 0 then write (i, ' '); / / проверяем, если число делится на два, то выводим ответ в строчку через пробел

end.