Ayuda con ejercicio fácil en Pascal

[MauroB99]

Hola, antes que nada quiero aclarar que soy n00b en el tema de programación, empecé estudiando Pascal esta semana así que por favor si pueden responderme con sencillez y en términos que pueda entender se los agradecería.
La letra del ejercicio es la siguiente:
"Supóngase que un número de tres dígitos tiene la forma abc. Por ejemplo, si el número fuera 730, entonces a representa al siete, b al tres y c al cero. Escríbanse expresiones en Pascal que produzcan los "números" cba y accb."
Esto fue lo que hice:

Código (pascal) [Seleccionar] Expandir

Program ejercicio_4_capitulo3 (input, output); uses crt;
var numero, a, b, c: integer;
begin  clrscr;
write ('Escriba un numero entero de 3 cifras : ');
read(numero);
a := trunc(numero DIV 100);
writeln ('a= ',(a));
b := trunc ((numero - a * 100) DIV 10);
writeln ('b= ',(b));
c := (numero - a * 100) - (b * 10);
writeln ('c= ',(c));
writeln (c, b, a);
writeln (a, c, c, b);
readkey
end.
Me gustaría saber si está bien o si se puede simplificar de alguna manera, gracias!