Что будет напечатано после того, как выполнится следующий фрагмент кода?

s := 'abrakadabra';

while pos('a', s) > 0 do

begin

x := pos('a', s);

delete(s, x, 1);

end;

writeln(length(s));

Запишите ответ в поле ниже