Задача

[zig1]

Помогите решить задачу, никак не могу понять как сделать чтобы числа заканчивались на 2,4,8

Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 и 8.

program ext;
var i,n,s,s1,s2,d,a,c:integer;
begin
 n:=3;
 for i:=20 to 99 do begin
if (i mod n=0) then
writeln (i);
end;
end.

Где и что в программу^, надо вписать?

[Step_UA]

program ext;
var i,n,s,s1,s2,d,a,c:integer;
begin
 n:=3;
 for i:=21 to 99 do begin
if (i mod n=0) and (i mod 10 in [2,4,8]) then
writeln (i);
end;
end.

[zig1]

Сообщение от Step_UA

program ext;
var i,n,s,s1,s2,d,a,c:integer;
begin
 n:=3;
 for i:=21 to 99 do begin
if (i mod n=0) and (i mod 10 in [2,4,8]) then
writeln (i);
end;
end.

Спасибо за помощь.