var a,b,c, x: real;
begin
write('vvedite chislo');
readln(a);
b:=a mod 10;
c:=a div 10;
x:=b*1000+c;
write('x = ',x);
readln;
end.
var a,b,c, x: real;
begin
write('vvedite chislo');
readln(a);
b:=a mod 10;
c:=a div 10;
x:=b*1000+c;
write('x = ',x);
readln;
end.