В тербо паскале через while вывести на экран наименьшие четные числа…

Видимо имеется ввиду что сумма этих четных чисел не должна превышать R Program chisla; Uses crt; var i,r: integer; begin clrscr; write (' Введите R: '); readln (R); writeln; i: =0; while (i <= r) do begin inc (i,2); if (i <= r) then write (i: 3); end; readkey; end.