Проблема та-же но осталось всего 1 (остальные 4 сделал сам вот само : напишите программу которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел , не превосходящих 256. программа получает на вход целые числа, количество которых неизвестно, последовательность чисел заканчивается числом 0(0 - признак окончания ввода,не входит в последовательность).
begin
s:=0;
n:=0;
readln(a);
while a<>0 do begin
n:=n +1;
if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
readln(a);
end;
writeln(n);
writeln(s)
end.