uses crt;
var i,n,y:integer;
    a:array [1..600] of real;
begin
clrscr;
read(n);
for i:=1 to n do;
if i mod 1=0 then write (i,' ')
writeln;
i:=1;
while i<n do
  begin
    if i mod 1=0 then write (i,' ');
    i:=i+1;
  end;
writeln;
writeln('Cikl Repeat:');
i:=1;
repeat
if i mod 1=0 then write (i,' ');
i