Какие части программы являются обязательными в среде кумир? выберите несколько вариантов ответа: ключевое слово алг тело алгоритма ключевое слово кон надо ключевое слово нач дано название алгоритма комментарии

Программа не будет работать без ключевого слова алг и ключевого слова кон

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readlnstring('вводите: ').towords;   var c: =a[0].last;   writeln('найдено ',a.where(w-> w.first=c).count,           ' слов, начинающихся с "',c,'"') end. пример вводите: туча дождь астроном баран арбуз зебра астра велосипед найдено 3 слов, начинающихся с "а" вариант "а нас в школе учат так", который якобы "проще" var   s: string;   c: char;   i,k,l,p: integer; begin   // предполагается, что слова разделены ровно одним пробелом   write('вводите: '); readln(s);   l: =length(s);   if l=1 then writeln('найдено одно слово')   else begin       p: =pos(' ',s);       if (p=0) and (s[1]=s[l]) then writeln('найдено одно слово')       else begin           c: =s[p-1];           if s[1]=c then k: =1 else k: =0;           for i: =p+1 to length(s)-1 do               if (s[i]=' ') and (s[i+1]=c) then inc(k);               writeln('найдено ',k,' слов, начинающихся с "',c,'"')           end       end end.

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var a,b: integer;   write('введите границы интервала: '); read(a,b);   if a> b then swap(a,b); // страховка от злобных буратинок   var k: =range(a,b).where(m-> sqr(sin(m))+cos(m*m)< 0).count;   writeln('на интервале найдено отрицательных значений- ',k) end. пример введите границы интервала: -3 10 на интервале найдено отрицательных значений- 4