Почему не идет программа? в ответе нужны нечетные числа от 3 до 25program chislo;var...

Question

Почему не идет программа? в ответе нужны нечетные числа от 3 до 25
program chislo;

var a,i:integer;

begin
i:=3;
writeln(i);

repeat
a:=i+2;
until a <56;<br>writeln(a);

end.

Answer 1

var
   i: integer;

begin
  i := 3;
  writeln(i);
  repeat
     i := i + 2;
     writeln(i);
  until i >= 25;
end.

цикл этот работает, пока условие ложно) Да и переменная a лишняя, пожалуй)