Скорее всего когда гладит кошку и смотрит телевизор
Я так понимаю это паскаль, и это связано с тем, что где-то лишнее ; или наоборот, не хватает ;
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.
Ну вот в принципе можно такую схему