Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>
<span>Тут всё просто - </span>
<span>1) Находишь наименьшее из трёх чисел. </span>
<span>2) Оставшиеся два числа перемножаешь.</span>
Количество символов в алфавите