Надеюсь то что надо,если нет ответь.
Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
Тут Русские не понимают Казахский
3.5×1024=13684 байт
в він_125 1 символ =8біт або 1 байт
в юнікод 1 символ =16 біт або 2 байти
отже 13684 символи в він1251
і 13684/2=6 792 символів у юнікод
1-3, 2-2, 3-2 скорее всего, там плохо видно, 4- D:\каталог и все