Как убрать все нули из числа в pascal

Поделить на 1000                                   ! смотря какое число

1. uses crt; const m=8; var n,i,b,c,p,k: integer; a: array[1..m] of integer; begin readln(n); b: =n; k: =1; repeat c: =b mod 10; a[k]: =c; b: =b div 10; inc(k); until b=0; repeat p: =0; for i: =1 to k-1 do if a[i]< a[i+1] then begin p: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until p=0; for i: =1 to k-1 do write(a[i]); end. 2. uses crt; const n=99; var i,j: integer; begin for i: =10 to n do for j: =10 to n do if ((i*i+j*j)mod 17=0) then write(i,' ',j,'    '); end.

Ана каком языке сделать?   program test;   var          n, m: integer;           max: integer;           count: integer;           number: integer;           i: integer;   function getdividerscount(number: integer): integer;   var          limit: integer;           count: integer;           i: integer;   begin          limit : = number div 2;           count : = 0;           for i : = 1 to limit do                  if number mod i = 0 then                          count : = count + 1;           result : = count;   end;   begin          write('enter range: ');           read(n, m);           max : = 0;           for i : = n to m do          begin                  count : = getdividerscount(i);                   if max < count then                  begin                          max : = count;                           number : = i;                   end;           end;           writeln('result: ', number);   end.