Чувак иди c++ учи, pascal уже устарел
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Любая информация является таковой только по причине того что она была принята отнеконго источника. То есть была передана.
С1) 10010С5) 00011С3) 00110С2) 01010С4) 11111<span>Сервер 4 связан со всеми остальными серверами => Сервер 4 узловой, соединяющий м/ду собой все остальные сервера.
</span>
1.4
2.2
3.2
4.2
5.1
6.2
7.4
8.3
9.2
10.2
11.3
12.4
13.2
14.1
15.1
16.2
17.3
18.1
19.4
20.3