2 Кбайт = 2*1024 байт = 2048 байт
128 бит = 128/8 байт = 16 байт
2048+16 = 2064
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>
var a, b, res: real;
begin
readln(a, b);
if a > b then res:= a + b
else if a < b then res:= a - b
else res:= a * b;
writeln(res);
end.
In.txt и out.txt соотвественно
P.S. in.txt должен быть в Unicode