Решите Болел не знаю как решать

Линейный - самый простой. Например, измерить стороны прямоугольника и найти его периметр.
Начало - Измерить ширину, длину - Удвоить сумму длины и ширины - Записать ответ-периметр - Конец

Разветвляющийся - имеет условие, две "ветки". Ситуация на перекрестке.
Начало - Подошли к перекрестку - Горит зеленый свет? -
         ветка "да": перейти дорогу
         ветка "нет": стоять и ждать зеленый свет
- Конец

Цикл означает повтор какого-то действия, например, покраска стены.
Начало - Подойти к стене и взять кисть и краску -
         начало цикла: обмакнуть кисть в краску и провести по стене,
         пока вся стена не будет закрашена
- Убрать кисть и краску на место  - Конец

program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.