Почему данная программа выполняется только один раз? нужно вывести всю сумму четных чисел с четного до любого числа pascal
var
a, b, c, d, e, f, g: integer;

begin
readln(a);
readln(b);
c : = a;
d : = b;
repeat
begin
c : = c - 2;
end;
until (c = 2) or (c = 1);
repeat
begin
d : = d - 2;
end;
until (d = 2) or (d = 1);
if (c = 2) then
begin
repeat
begin
e : = a;
a : = a + 2;
f : = a + e;
end;
until (a = b) or (a < b);
end;
writeln(f);
end.​

Петья    2   27.10.2019 11:16    0