Вывести все числа оканчивающиеся на 2

[ЮляЮлия]

Доброго времени суток всем!
Помогите,пожалуйста. Нужно вывести все введенные числа заканчивающиеся на 2.

[ZX Spectrum-128]

If x mod 10 =2 then
  // число заканчивается на 2

[ЮляЮлия]

с этим то кокрас все понятно,а вот как сделать,чтобы обрабатывались введенные числа,а не заданные

[ZX Spectrum-128]

А с чего вы решили, что этим кодом нельзя выводить введенные числа?

[salauat]

в место х ставь массив, и за крути его перед услрвием

[ЮляЮлия]

Нет,я не отрицаю того,что можно) я о том,как это будет выглядеть?
Вот код,в котором осуществляется вывод чисел ИМЕЮЩИХСЯ(for k:=100 to 200 do),а как сделать,чтобы введеные числа,оканчивающиеся на два выводились

uses crt; 
var 
k:integer; 
begin 
clrscr; 
for k:=100 to 200 do 
begin 
if k mod 10 = 2 then writeln(k); 
end; 
readln; 
end.

не знаю,правда,работает этот код или нет,не запускала

[salauat]

uses crt;
var a:array[1..10] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i] mod 10 = 2 then writeln(a[i]);
readln;
end.

[ЮляЮлия]

в таком случае,запускается программа,я ввожу числа,нажимаю enter и ничего не происходит...

[ZX Spectrum-128]

Вводите какие числа?

[ЮляЮлия]

Ввожу 2,4,6