uses CRT;
var x: integer;
Begin
Clrscr;
Write('Number: ');
Readln(x);
Write(x div 1000, x mod 10);
readln
end.
var a, b: integer;
Write('a = ');
Readln(a);
b:=a div 1000*10 + a mod 10;
Write(b);
uses CRT;
var x: integer;
Begin
Clrscr;
Write('Number: ');
Readln(x);
Write(x div 1000, x mod 10);
readln
end.
var a, b: integer;
Begin
Write('a = ');
Readln(a);
b:=a div 1000*10 + a mod 10;
Write(b);
end.