Электронная тетрадь Владислава Коновалова

от 29/04 var s, n:integer;  begin  readln(n);  s:=0;  repeat  s:=s+1;  until s=n;  writeln(s);  end.

var i,n:integer; begin writeln('vvedite chisla'); readln(n); for i:=1 to n do if i mod 2=0 then writeln(i); end