Да с: с: с: с: с: с: с: с: с: с:
Var n,i,s,c:integer;
begin
readln(n);
for i:=1 to n do //сколько произвольных чисел будет.
begin
readln(c); //вводим произвольные числа
s:=s+c; //суммируем
end;
writeln(s); //Вывод суммы
<span>end.</span>
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...