Даю 40 баллов!Срочно!Сделать алгоритм на паскале. Задать любое число n и вычислить сколько нечетных чисел между 0 и n. Алгоритм сделать через while.

var n,i,k: integer;

begin

write('n = ');

readln(n);

i:=0;

k:=0;

while i<=n do

begin

if i mod 2 <> 0 then k:=k+1;

i:=i+1;

end;

writeln('k = ',k);

end.

Пример:

n = 10

k = 5

program eee;

var

q,w,n: integer;

begin

readln(n);

q:=0;

w:=0;

n:=n+1;

while n>1 do begin

n:=n-1;

if n div 2>0 then

q:=q+1;

if n div 2=0 then

w:=w+1;

end;

writeln('Нечетных чисел: ',q);

writeln('Четных чисел: ',w);

end.