Составить программу записывающее четырехзначное число наоборот

var a,x,b,y,z,c,r,m: integer; beginwrite ('a='); readln (a); r: =a div 1000; m: =a mod 1000; x: =m div 100; b: =m mod 100; y: =b div 10; z: =b mod 10; c: =z*1000+y*100+x*10+r; writeln ('c=' , c); end.