Ответ: program ff;varx:string;beginwriteln(‘Введите x:’);readln(x);if x.Length=2 then begin  x:=x[2]+x[1];  writeln(x); end else Writeln(‘Введенное вами число имеет неверный формат’);end.