Напишите программу, которая в последовательности из 8-ми введенных с
клавиатуры чисел определяет их сумму.

// 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.