По программированию 8 класс. решите как положено через дано трехзначное число. найти число, полученное при перестановке первой и второй цифр заданного числа

Var a: integer; begin read(a); write((a div 10 mod 10)*100+(a div 100)*10+a mod 10) end.

F= неа + в + нес а   в   с       неа   нес     f 0     0     0         1         1         1 0   0   1         1        0       1 0   1   0         1         1       1 0     1     1       1           0       1 1   0     0       0         1         1 1   0       1         0       0         0 1     1     0       0       1         1 1     1     1       0       0         1

Program tak; var a,b,c,n: integer; begin  writeln('введите число n (0< =n< =9) ');   readln(n);   b: =0;   for a: =99 downto 10 do  begin    if (n < > a div 10) and (n < > a div 10) then    b: =a+b;     end;   writeln(b); end.эт перваяprogram tak2; var a,b,c,d: integer; begin  writeln('введите два числа  ');   readln(a,b);   d: =0;   for c: =99 downto 10 do  begin    if (a = c div 10) or (b = c mod 10) then    d: =c+d;   end;   writeln(d); end.эт вторая