Foro de elhacker.net

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:

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!