begin
  var a: integer;
  Writeln('Введите трехзначное число');
  while True do
    if integer.TryParse(ReadString('a ='), a) 
      and a.InRange(100, 999) then break;
  
  //1 вариант
  var s := a.ToString;
  Swap(s[1], s[3]);
  Println(s);
  
  //2 вариант
  a := a mod 10 * 100 + a div 10 mod 10 * 10 + a div 100;
  Print(a)
end.