Найти сумму трехзначных чисел
блок-схема

(Начало)      ||Sum:=0;|      ||for i:= 100 to 999 do begin|      ||Sum:= Sum + i;|      |/WriteLn('Сумма чисел = ',Sum);/      |(Конец)Какие блоки сам смекнешь надеюсь