Паскаль. Дано трехзначное число

program zadacha1; uses crt; var a,b,c,d: integer; beginclrscr; writeln ('vvedi trexznachnoe chislo'); readln (a); b: =a div 100; c: =a mod 100 div 10; d: =a mod 100 mod 10; write (c); write (d); write (b); readln; end.