Складіть блок-схему алгоритму знаходження суми шести чисел перше з яких дорівнює 100, а кожне з п'яти наступних у 5 разів менше від попереднього. Виконайте алгоритм.​

Вот посмотри, может сем
uses crt;
var s: string;    
function Kslov (str: string; c: char): integer;
var i,k: integer;
begin str:=str+' ';  
k:=0;
for i:=1 to length(str)-1 do     if (str[i+1] in [' ','.',',','-',':',';','!','?'])         and (str[i]=c) then inc(k);
Kslov:=k;
end;
  procedure Del(var str: string);
var i,j: integer;
begin str:=str+' '; i:=length(str)+1;
repeat dec(i);
until(str[i+1]=' ') and (str[i]='о');
j:=i;
repeat dec(i);
until(str[i+1]=' ') or (i=1); delete(str,i,j-i);
end;  
begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а')    then Del(s); write('s=',s);
End.

Для начала мы переведем Iобьем статьи в биты 2мбайта=2048кбайт=2,097,152байт=16,777,216 бит
После этого переводим 2 байта в бит ;2байта=16 бит
Потом нам надо найти какой обьем 1 страницы 
Для это надо "строки×символы×каждый символ сколько кодируется"
Iстраница Iст.=32×64×16=32,768 бит
Значит 32,768 бит это 1 страница
Теперь найдем сколько страниц для этого мы Iобьем статьи разделим на 1 страницу 
16,777,216÷32,768=512 значит будет 512 страниц
Теперь отнимаем 2 страницы по условию задачи будет 512-2=510 страниц , после этого находим сколько 510 страниц будет в битах т.е
Iобьем статьи после редактирования=510×32,768=16,711,680 бит 
А дальше переводим в байты и в кбайты
16,711,680÷8=2,088,960 байт и из байт в кбайты
2,088,960÷1024=2,040 кбайт
ответ:информационный объём статьи 2,040 Кбайтах после редактирования.
Вот и вся задача