Дано трёхзначное число, отыскать его число при прочтении его цифр справа

var
    a, b, i: integer;           // объявляем переменные целочисленного типа.
    s : string;                  // объявляем переменную строкового типа.
begin
    write (Введите трехзначное число:);      // вывод строчки на экран.
    read(a);                                                 // считываем число, введенное с клавиатуры.
    while a gt; 0 do                                       // начало цикла.
       begin
          b := a mod 10;             // определяем заключительную цифру числа.
          s:=s + inttostr(b);        // храним числа числа в оборотном порядке.
          a := a div 10;               // устраняем последнюю цифру из числа.
      end;
  write(Ответ: , s);                // вывод ответа на экран.
end.