Среди чисел от 500 до 1000 найти те последняя цифра которых равно А

Var

A, n:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

For n: = 500 to 1000 do

if n mod 10 = A then Write (n,' ')

End.

Пример работы программы:

A = 9

509 519 529 539 549 559 569 579 589 599 609 619 629 639 649 659 669 679 689 699 709 719 729 739 749 759 769 779 789 799 809 819 829 839 849 859 869 879 889 899 909 919 929 939 949 959 969 979 989 999