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

Ввел ввод промежутка от a до b, пользователь сам задает. Потом выводит числа кратные 2.

Program chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.