Написать программу Паскаль -перенести первое число в конец Число трехзначное Помогите:)

Прошу:) var a, b, c, d: integer; begin      readln(d);      a := d div 100;      b := d mod 100 div 10;      c := d mod 10;      writeln(b, c, a); end. можно ещё сократить: var a, b, c, d: integer; begin      readln(d);      writeln(d mod 100 div 10, d mod 10, d div 100); end. или даже: var a, b, c, d: integer; begin      readln(d);      a := d div 100;      writeln(d - a * 100, a); end.