1 символ 1728/864=2 байта
алфавит 32*2=64 байта
Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Ответ этого вопроса коктейль