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