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

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

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.