В тербо паскале через 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.