Question

написать программу выводящую четные числа от 1 до числа введенного с клавиатуры (с while)​

Answer 1

var

 a, i: integer;

begin

 read(a);

 i := 2;

 while i <= a do

 begin  

   write(i,' ');

   i := i + 2;

 end;

end.