Задача с вложеным циклом

[pityara]

Дана функция y=f(x,a)

x1<=x<=x2 шаг-x3

a1<=a<a2 шаг-a3

x - через for
a - через repeat

Вывести все значения x при которых y-четное положительное число

Помогите пожалуйста.
Зарание благодарен.

[NetSpace]

for x:=x1 to x2 do
begin
   if(0<y)and(y mod 2=0)then WriteLn(y);
   x:=x+x3;
end;
//*****************
a:=a1;
repeat
   if(0<y)and(y mod 2=0)then WriteLn(y);
a:=a+a3;
until a<=a2;

или это задание надо было с помощью вложенных циклов реализовать, типа

for x:=x1 to x2 do
begin
   a:=a1;
   repeat
      //тут считаете значение функции y(x,a)
      ...
      if(0<y)and(y mod 2=0)then WriteLn(y);
      a:=a+a3;
  until a<=a2;
  x:=x+x3;
end;

[JUDAS]

x:=x+x3;

Вопрос, а не пишет такой гон ?

[Error] Unit1.pas(42): Assignment to FOR-Loop variable 'I'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Alex11223]

Как раз в этой теме (пост #7) только что было про это) http://programmersforum.ru/showthread.php?t=166720

Но странно почему в ошибке о "variable 'I'".

[NetSpace]

ну тогда надо в теле цикла включать ещё один счётчик, чтоб проверял каждое значение X на "вшивость". типа так:
x=3//это значение берём - оно первое
x=4//это не берём
x=5//это не берём
x=6//а вот это берём, потому что оно как раз 3 по счёту - у нас шаг +3
x=7//а это снова не берём
x=8//и это тоже...
x=9//а вот это опять берём в расчёт
...

for x:=x1 to x2 do
begin
   a:=a1;
   if((x-x1)mod 3=0)then//вот оно - условие проверки на "вшивость"
   begin
      repeat
      //тут считаете значение функции y(x,a)
      ...
      if(0<y)and(y mod 2=0)then WriteLn(y);
      a:=a+a3;
     until a<=a2;
   end;
end;

[TinMan]

ну тогда надо в теле цикла включать ещё один счётчик, чтоб проверял каждое значение X на "вшивость".

Гм. А если "вшивых" одно на миллион? Хороший способ занять комп делом, чтоб не шлялся по подворотням.. ))

Есть способ проще:

for i:=0 to (x2-x1) mod x3 do begin
  a:= a1;
  repeat
    y:= f(x1+i*x3,a);
    if (y>0) and not Odd(y) then Writeln(x)
    a:= a+a3;
  untili a>a2
end

Автор не указал, какого типа переменные, так что я считал все целыми.