Составить алгоритм и программу:вывести на экран числа, кратные 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.