<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, i -> Sqr(i + 1), 1).Sum.Println
end.
Var a,b,c,d:integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a mod 2=0) then d:=a;
if (b mod 2=0) then d:=d+b;
if (c mod 2=0) then d:=d+c;
if d<>0 then writeln('Сумма чётных чисел равняется ',d)
else writeln('Нет чётных чисел');
<span>end.</span>
Растения :
-Башмачок настоящий
-Любка зеленоцветковая
-Кувшинка белая
-Колокольчики
-Колокольчики
-Прострел раскрытый
-Печеночница благородная
-Ирис сибирский
-Ятрышник шлемоносный,
Нет вася не прав так как в кодировании получилось бы 3 бита