Задачи на программирование 8 класс. Решите через паскаль

Число полученное при прочтении цифр справа налево
program chislo;
var
begin
readln (n);
d4:=n mod 10;
s:=n div 10;
d3:=s mod 10;
s1:= s div 10;
d2:= s1 mod 10;
d1:= s1 div 10;
m:=d4*1000+d3*100+d2*10+d1;
writeln (m);
end.