Дано целое положительное трехзначное число.напишите программу, позволяющую определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. например: 123-> 321.

Var a,b:integer;
d:string;
  begin
    writeln('введите число');
    readln(b);
    Str (b, d);
      for a:=length(d) downto 1 do begin
      write(d[a]);
    end;
  writeln('');
end.