Складіть блок-схему алгоритму знаходження суми чисел перше з яких дорівнює 7 кожне наступне на 5 більше від попереднього і всі вони не перевищують 100 виконати алгоритм

program raf105;

var

 s,s2: string;

 i,j,n,price,points: integer;

begin

write('Количество задач в карусели: ');

readln(n);

write('ответы команды: ');

readln(s);

for i:=1 to length(s) do

 if s[i]<>' '

   then s2:= s2 + s[i];

price:= 3;

for i:=1 to length(s2) do

begin

 if s2[i]='1'

   then begin

     points:= points + price;

     price:= price + 1;

   end

   else for j:=1 to 3 do

     if price > 3

       then price:= price-1;

end;

writeln('Итоговый : ',points);

end.

PascalABC 3.4.2

В школе имеется множество различных уроков, но больше всего мне нравится урок информатики. Этот предмет очень познавателен и интересен.

Когда мы приходим на урок у меня сразу готовность номер один,так как компьютеров в нашей школе очень мало и приходится устраивать перегонки ради места у компьютера, но эти гонки мне нравятся, так как они делают нашу урок еще более интересным.

Наша учительница очень молодая, но умная. Она научила нас многому( составлять ветвистые и многие другие виды алгоритмов, создавать различные презинтации и др.)

Урок информатики у нас проходят очень весело и интересно, мы печатем какие-нибудь тексты и делаем какие-нибудь задания, а потом у нас все проверяют. Благодаря информатике я научилась многому, а также сейчас я довольно бытро печатаю на клавиатуре.