А я сделала!
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.
X, y, a, b:integer;
Begin
Write(x,y,a,b)
I:=x+y+a+b
Read
End
А я сделала!
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.