Можно и проще...
Var X : Integer;
Begin
Readln(X);
While X>=2 do X:=X-2;
If X=0 then Writeln('Чётное') else Writeln('Нечётное');
end.
.txt .amr, .cda, .imelody, .imy, .flac,
1) j=3, k=5
J>k? 3>5? Нет
K:=k-2 => k=5-2=3
2) j=3, k=3
J>k? 3>3? Нет
K:=k-2 => k=3-2=1
3) j=3, k=2
J>k? 3>2? Да
J=k-2 => j=2-2=0
<span>"Ввести последовательность чисел (окончание ввода – 0)"</span>
"<span> Входные данные взять из текстового файла." </span>
<span>так откуда брать то?</span>
Пишешь так. 320*400= 128000
62,5 * 1024=64000
128000 делишь на 64000= 2.