program aqrr;
uses crt;
const n=11;
var
a,b,d,c:integer;
begin
clrscr;
Writeln('Введите четырехзначное чило');
Readln(a);
c:=a div 100;
b:=a mod 100;
d:=b*100+c;
writeln('Новое число равно ',d );
readln(d);
end.