uses CRT;
var x: integer;
Begin
Clrscr;
Write′Number:′'Number: '′Number:′;
Readlnxxx;
Writexdiv1000,xmod10x div 1000, x mod 10xdiv1000,xmod10;
readln
end.
var a, b: integer;
Write′a=′'a = '′a=′;
Readlnaaa;
b:=a div 1000*10 + a mod 10;
Writebbb;
uses CRT;
var x: integer;
Begin
Clrscr;
Write′Number:′'Number: '′Number:′;
Readlnxxx;
Writexdiv1000,xmod10x div 1000, x mod 10xdiv1000,xmod10;
readln
end.
var a, b: integer;
Begin
Write′a=′'a = '′a=′;
Readlnaaa;
b:=a div 1000*10 + a mod 10;
Writebbb;
end.