<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
Y =-44 так как - 22 меньше минус 20 (у отрицательных все наоборот) поэтому y = -22*2 = -44
Напишу так алгоритм / ответ
x:=1 / 1
y:=3∗x
/ 3
y:=y+3 / 6
y:=y∗x / 6
y:=y+4 / 10
y:=y∗x / 10
y:=y+5 / 15
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее