Решить задачу на Паскале(код записать в тетрадь): вводится трехзначное число, поменять в нем первую и третью цифры местами.

                                       PascalABC.NET

begin

 var a := ReadInteger('Введите число от 100 до 999 = ').Clamp(100,999);

 Print('ответ:',a div 100 + a mod 10 * 100 + a mod 100 div 10 * 10);

end.