1)дана последовательность целых чисел ,заканчиваются нулем.написал. прогр. подсчитать сумму положит чисел. 2) дана посл. заканчиваются на 0.написал. программу выводящую только четные числа 3)дано n чисел .написал программу подсчитывающую их сумму.

Program n1;
var a,k,sum,x:integer;
begin
write('Введите число X: ');
readln(x);
sum:=0; k:=0;
writeln('Введите непустую последовательность целых чисел, которая оканчивается нулем:');
read(a);
while a <> 0 do
begin
if a>x then sum:=sum+a;
if a mod 2 = 0 then k:=k+1;
read(a);
end;
writeln('Сумма всех чисел последовательности, больших числа X: ',sum);
writeln('Количество всех четных чисел последовательности: ',k);
end.
По-моему так...