Найти число, полученное при перестановке первой и второй цифр заданного числа

var 
 i: integer;
begin
 readln(i);
 i:=100*(i div 100)+10*(i mod 10)+(i mod 100 div 10);
 write(i);
end.

var
 bool: boolean;
 x, y: integer;
begin
 read(x, y);
  if (x<20) or (y<20) then
   bool:=false
  else
   bool:=true;
 writeln;
 write(bool);
end.

                var
a,b,c,d,i,x,r:integer;
s:string;
begin
readln(a);{Ввод числа}
if(a>999) or(a<100) then writeln('число не трехзначное')  {условие трехзначность}
else
//////////////////////////------------------------------------
begin                     {Разложение числа на цифры}
str(a,s);
for i:=1 to 3 do begin
  val(s[1],b,c);
  val(s[2],d,c);
  val(s[3],x,c);
  end;
//////////////////////////------------------------------------
  r:=b*d*x; {Произведение цифр числа А}
  if a<r then writeln('число ',a,' меньше произведения его цифр ',r)
  else writeln('число ',a,' больше произведения его цифр ',r) end;
  end.

program tt;
uses crt;
var
  c:array [1..1000] of integer;
  i,n,pr,k,a,b:integer;
  j:boolean;
begin
  ClrScr;
  writeln('Введите кол-во цифр');
  readln(n);
  writeln('Введите ряд двухзначных цифр');
  j:=false;
  for i:=1 to n do
    read(c[i]);
  for i:=1 to n do begin
    a:=c[i] div 10;
    b:=c[i] mod 10;
    pr:=a*b;
    k:=pr*3;
    if c[i]=k then begin
      writeln(c[i],' ');
      j:=true;
    end;
  end;
  if j=false then writeln('Таких чисел нет');
  readln;
end.

Uses
 CRT;
Var
 i,j:byte;
begin
for i:=1 to 9 do
for j:=0 to 9 do
 if (3*(i*j))=(i*10+j) then
  write(' ',i,j);
end.