Libya xD

program libya;
uses wincrt;
var
m,n,r:integer;
procedure esp(var l:integer);
begin
l:=( l div 10)*1000+(l mod 10);
end;
procedure inj(l,k:integer; var j:integer);
begin
j:=k*10+l;
end;
begin
writeln('entrer n');
readln(n);
writeln('entrer m');
readln(m);
esp(n);
inj(n,m,r);
writeln;
writeln(r);
writeln('Press <Enter> To Quit');
  readln();
end.