Дело в том, что в русском языке нет звука [я]. Букву я мы воспроизводим с помощью звуков [й],[а]. Поэтому само задание неверное.
Машинное слово- это колич-во данных, кот-е процессор может обработать за одну операцию.
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
Держи :) .......................................................