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

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