var n, s: longint;
i: integer;
begin
s:=1 ;
for i:=1 to 6 do begin
readln(n);
if i mod 2 = 0 then
s := s + n;
end;
write(s);
end.
Из за того что сумма в начале равняется единице, то при конечном выводе суммы она всегда будет больше чем нужно на единицу, а при ненахождении чётных чисел вывод будет 1 , а не 0Проверяется чётность номера введённого числа а не само число, то есть если число было введено вторым, но при этом оно нечётное, то программа считает его как чётноеПравильный вариант программыvar n, s: longint;
i: integer;
begin
s:=0;
for i:=1 to 6 do begin
readln(n);
if n mod 2 = 0 then
s := s + n;
end;
write(s);
end.
3) Так как большинство информации даются через веб-страниц или веб-сайт