3 ГБ = 3x1024 МБ=3072 МБ
3072+800=3872 МБ
Var s:string;
i,j,l,min:byte;
begin
min:=255;
readln(s);
if s[1]='a' then j:=j+1;
s[length(s)+1]:=' ';
for i:=1 to length(s)+1 do
begin
if (s[i]='a') and (s[i-1]=' ') then j:=j+1;
if s[i]<>' ' then l:=l+1 else
begin
if s[i-1]<>' ' then
if min>l then min:=l; l:=0;
end;
end;
writeln('a) Slow kotorie nachinayutsa s "a" - ',j);
writeln('b) Dlina samogo korotkogo slova - ',min);
<span>end.</span>
редактор - написание, изменение
компилятор - компиляция кода в исполняемый файл
интерпретатор - воспроизведение кода (обычно построчно)
отладчик - предварительный поиск ошибок в коде
Графический редактор<span />
Блок-схемы делать не рискую, но решение задачи во вложении :D