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

Предыдущий
вопрос Следующий
вопрос

program Main;
var
A, B, X, i: Integer;
begin
// Ввод значений A, B и X
Write('Введите число A: ');
Readln(A);
Write('Введите число B (B должно быть больше A): ');
Readln(B);
Write('Введите цифру X (от 0 до 9): ');
Readln(X);

// Проверка, что B больше A
if B <= A then
begin
Writeln('Ошибка: B должно быть больше A');
Exit;
end;

// Вывод всех целых чисел от A до B, оканчивающихся на цифру X
for i := A to B do
begin
if i mod 10 = X then
Writeln(i);
end;
end.