Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.
Бир<span> = числительное "один", а также признак неопределенности
</span>бириси<span> = один (из нескольких)
</span>
1-2-4-3-5 хотя сто процентов гарантировать не могу, путано оно немного
Var a,b,c:byte;
begin
for c:=1 to 99 do begin
a:=c mod 2; b:=c mod 3;
if (a=0) and (b=0) then write (c);
end;
end.