решить на языке програмирования PASCAL ABC.
Напишите программу, которая запрашивает у пользователя числа и находит их сумму. Признаком окончания ввода является число 10.
Вход
5 6 2 10 8
Выход
13 (это сумма чисел 5, 6, 2. 10 – это конец цикла).
Заранее благодарю

var

ch,sum:LongInt;

begin

ReadLn(ch);

sum:=0;

while (ch>10) or (ch<10) do

begin

inc(sum, ch);

ReadLn(ch);

end ;

WriteLn(sum);

end.

игрок мог поставить крестик в любую клетку поля, их 64; по формуле  =n узнаем, какое кол-во информации получил второй игрок:

=64; i=6. ответ: 6 бит

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.