Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее количество 60.!!!
В массиве хранится информация о баллах,
полученных спортсменом-десятиборцем в каждом из десяти видов спорта. Для выхода
в следующий этап соревнований общая сумма баллов должна превысить некоторое
известное значение. Определить вышел ли данный спортсмен в следующий этап
соревнований.const m=10;
var a:array[1..m] of byte;
i,k:byte;
s:integer;
begin  writeln('Введите информацию о баллах видов спорта'); 
for i:=1 to m do 
   begin   
       write(' ',i,'-й вид спорта:');
       readln(a[i]);
       end; 
    begin 
    s:=0;     
    s:=s+a[i];
    write('Введите общее количество баллов по 10 видам спорта:');
    readln(k);
    end;\
     if s>k then writeln('Спортсмен проходит  в следующий тур')
      else writeln('Спортсмен не проходит в следующий тур');
end.      

помогите пожалуйста                                                                                                                       запиши выражения и найди их значения .                                                                                  к частному чисел 21 560 и 7  прибавить  произведение  5 809 и 3 .                                   к числу  79 500 прибавить  произведение   52 078  и 6 .                                                        от произведения  чисел  40 450  и 4  отнять  частное чисел  19 200 и 600.

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