Решаем задачи Абрамян на Паскале. Integer 13

Integer13. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.
Решение:

program Integer13;

var

A, Res: Integer;

TempS: String;

begin

Write('Введите трёхзначное число: ');

Readln(A);

Res:=(A mod 100)*10+ (A div 100);

//*

Str(Res,TempS);

Writeln('Число, полученное при перестановке цифр: '+ TempS);

end.

* (A mod 100) — отбрасываем сотни

(A div 100) — Получаем сотни

Другие задачи из раздела Integer можно посмотреть здесь.