Пусть меня кто-то исправит, но у меня получается 10000001110110
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
<span>MCDXXXIV-1434 ........................................ </span><span> </span>
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x
В любой момент взаимодействия с окном один из элементов управления выделен с помощью пунктирной рамки, в которую заключается его название, и, возможно, цветовой полоской в самом элементе. Это выделение принято считать <span>курсором диалогового окна, </span><span>а сам элемент управления — активным (текущим, выделенным). В диалоговом окне активным является элемент управленияТип файлов:. В любой момент времени пользователь может взаимодействовать только с активным элементом управления.</span>