Написать программу в паскаль n-целое число < 1000 испльзуя div и mod определить сколько цифр в этом числе вычислить сумму цифр числа определить чётное оно или нет вывести на экран это же число в обратном порядке

Var a,c,n2,n,sum,col: integer; begin readln(n); n2: =n; a: =0; sum: =0; col: =0; if n< 1000 then begin while(n2> 0) do begin   c: =n2 mod 10;   n2: =n2 div 10;   a: =(c+a)*10;   sum: =sum+c; col: =col+1; end; writeln(col); writeln(sum); if (n mod 2 =0) then writeln('чётное') else writeln('нечётное'); writeln(a div 10); end else write(n'  больше 1000! '); end.

Program pos; var       n, a, b, c, s, d: integer; begin       write('n = ');       readln(n);       if n < 1000 then       begin               a : = n div 100;               b : = n mod 100 div 10;               c : = n mod 10;               write('в числе ');               if a = 0 then                       if b = 0 then                       begin                               d : = 1;                               writeln('1 цифра');                       end                       else                       begin                               d : = 2;                               writeln('2 цифры');                       end               else               begin                       d : = 3;                       writeln('3 цифры');               end;               s : = a + b + c;               writeln('сумма цифр: ', s);               if n mod 2 = 0 then                       writeln('число чётное')               else                       writeln('число нечётное');               if d = 1 then                       writeln(c)               else                       if d = 2 then                               writeln(c, b)                       else                               writeln(c, b, a);               end       else               writeln('число > 1000! '); end.

Program gt; var n,i: integer; p: real; begin readln(n); p: =1; for i: =1 to n do begin p: =p*2; writeln(i,' ',p); end; end.