Дано натуральное число m.Переставьте местами первую и вторую цифры этого числа Pascal ABC.NET

var x, y, n: Int64;
begin
write ('x = ');
readln(x);
y:=x;
n:=1;
while y > 100 do
begin
y:=y div 10;
n:=n*10;
end;
y:=(y div 10) + 10*(y mod 10);
x:=y*n + x mod n;
write(x);
end.

var
a, d1, d2, r, x10: Integer;
begin
Readln(a);
x10:=Round(Exp(Ln(10)*Trunc(Ln(a)/Ln(10))));
d1:=a div x10;
d2:= a div (x10 div 10) mod 10;
r := a mod (x10 div 10);
a:=d2*x10+d1*(x10 div 10)+r;
Writeln(a);
Readln;
end.

program p1;
var s,m:integer;
begin
readln(m);
s:=0; repeat s:=m mod 10 +s*10; m:=m div 10 until m=0;
s:=s div 100*100+s mod 10*10+s mod 100 div 10;
m:=s; s:=0; repeat s:=m mod 10 +s*10; m:=m div 10 until m=0;
writeln(s)
end.

P.S. Тут идея программы - создаем число из цифр старого числа в обратном порядке, меняем местами две последние цифры и снова создаем из него число с цифрами в обратном порядке.

Сложно

var a,b,x: integer;
y:real;
begin
writeln('vvedite x: ');
readln(x);
a:=x;
b:=0;
while (x>100) do
begin
x:=x div 10;
inc(b);
end;
x:=x mod 10 * 10 + x div 10;
y:=x*Power(10,b)+(a mod round(Power(10,b)));
writeln(y);
end.

var input: int64;
stroka: string;
sym: char;

begin

readln(input);

str(input, stroka);

sym := stroka[1];

stroka[1] := stroka[2];

stroka[2] := sym;

print(stroka);
end.

var
m,a,b: integer;

begin

readln(m);
a := m div 10;
b := m mod 10;
writeln(b,a)

end.