Вывести все числа от 1 до 10000 оканчивающиеся на 8 и делящиеся на 3.
на Паскале, программа полностью.

var a:integer;

begin

for a:=1 to 10000 do

begin

if (a mod 10 =8)and(a mod 3 =0) then writeln(a);

end;

end.