переделайте на цикл while пожалуйста

 

var i,n,x,y:longint;

begin

read(n);

x:=1;

y:=0;

for i:=1 to n do begin

if i mod 2=0 then y:=x+y else x:=x+y; end;

if n mod 2=0 then writeln(y) else writeln(x);

end.