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

[ZX Spectrum-128]

10 чисел нужно ввести.

[ViktorR]

Не мучайся, сделай просто:

uses crt;
var
k:integer;
begin
   clrscr;
   repeat
      write('Vvedi chislo: ');
      readln(k);
      if ((k mod 10) = 2) then writeln('Eto chislo okanchivaetsya na 2: ', k);
   until k = 0;
end.

И будет тебе счастье ...

как-то так, ...

[Plague]

procedure f;
  var a:integer;
begin
  write('Vvedi chislo: ');
  readln(a);
  if a<>0 then f;
  if a mod 10=2 then write(a,' ');
end;
begin
  f;
end.

[Poma][a]

С возвращением

if a mod 10=2 then write(a,' ');

-2 ?