Question

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

Answer 1

Var a,b:integer;
begin
readln(a);
b:=a mod 10;
a:=a div 10;
a:=(b*100)+a;
writeln(a);
end.