Целое четырехзначное число заменить числом, получающимся при записи его цифр в

// Пример программки на языке Паскаль.

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.