Они отлечаются тем что переменой длины она работает по переменам а постояный он будет работать постояно
элементарно Вадсон
var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.
Это программка, качай и пользуйся, PascalABC
29,25,21,17,13,9,5. Те каждое следующее число уменьшается на 4)