Pascal: mi a hiba?

readln(n); után n:=n div 2;

A for sorban:

for i:=n downto 1 do

program downtoOdd;

uses Crt;

var n : integer;

begin

ClrScr;

WriteLn('A szamok kiirasa n-tol visszafele, kettesevel', #10#13);

Write('Mettol irjam ki a szamokat: ');

ReadLn(n);

while n > 0 do

begin

if not Odd(n) then Write(n:5);

Dec(n);

end;

WriteLn(#10#13, 'Nyomj egyet a vegehez !');

ReadKey;

end.

program kettesevel;

var i,n:integer;

begin

write('Hannostól akarod kiˇíratni a számokat?');

readln(n);

for i:= n downto 0 do

begin

n:=n-2;

if n > -1 then writeln(n);

end;

end.

sorry a tagolásért csak gyorsan leírtam

Bocs 1. vagyok amit írtam az valóban nem jó. Ha az a feladat, hogy a megadott számtól számoljon vissza 2-esével akkor szerintem így kell (rég programoztam utoljára):

így is lehet a ciklust:

while n>0 do

begin

write(n:5);

if n>=1 then n:=n-2;

end;

ez n-től 1-ig megy (akkor is ha n páratlanról indult)

Elnézést,én párosával visszafelé néztem, de legegyszerűbb

while n > 0 do

begin

Write(n:5);

Dec(n, 2);

end;