Вывести на экран все целые числа из диапазона от А до В (А<=B), оканчивающиеся на цифру X (сделать в паскале)

program num_ab;

var A, B, c: integer;

begin

writeln ('Введите числа А и B (A<=B) ');

read (A, B);

writeln ('Введите цифру, на которую должно оканчиваться число');

read (c);

writeln ('Числа диапазона, оканчивающиеся на цифру ', c);

for i:integer:=A to B do

if (i mod 10) = c then write (i,' ')

end.