Написать программу в Паскаль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.