Даны натуральные числа m и n. Получить число состоящее из m последних четных цифр…

Var m, n, i: integer; a, b: string; begin readln (m); readln (n); a: =inttostr (n); for i: =1 to length (a) do if (strtoint (a[i]) mod 2=0) then b: =b+a[i]; for i: =0 to m — 1 do write (b[length (b) — i]); end. Строки — хорошие вещи=)