А я сделала!

Var c,c1,c2,c3,c4 : integer;

Begin 

read(c);

c1:=(c div 1000);   {нашли первую цыфру}

c4:=(c mod 10);   {нашли вторую цыфру}

c3:=(c mod 100) div 10; {третья цыфра}

c2:=(((c mod 1000)div 100)mod 10); {ну и вторая цыфра}

write(c1,c2,c3,c4);

End.