Program Loop;

Uses Crt;

var i:integer;

begin

    clrscr;

    for i:=1 to 4 do write(i);

        for i:=3 downto 1 do write(i);

readkey;

end.