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