var
  num_1, num_2: string;
begin
  while(true) do begin
  num_2:='   ';
      write('Введите трехзначное число: ');
      readln(num_1);
      if((num_1.Length = 3)) then 
        begin
          if ((num_1[1].IsDigit) and (num_1[2].IsDigit) and (num_1[3].IsDigit)) then
              begin
                num_2[1]:= num_1[2];
                num_2[2]:= num_1[3];
                num_2[3]:= num_1[1];
                write('Преобразованное число: ' + num_2);
                break;
              end
          else
            writeln('Это не число.');
        end
      else
          writeln('Вы ввели не три символа.');
          continue;
  end;
end.