Переведите число 2548912 в пятизначную систему счисления

Type   point=record       x,y: real       end; procedure getpoint(c: char; var a: point);   var       x,y: real; begin   write('введите координаты x и y точки ',c,': ');   read(x,y);   a.x: =x; a.y: =y end; function distpoint(a,b: point): real; begin   distpoint: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; var   a,b,m: point;   d,p,ab,ma,mb: real; begin   getpoint('a',a); getpoint('b',b); getpoint('m',m);   ab: =distpoint(a,b); ma: =distpoint(m,a); mb: =distpoint(m,b);   if ma> =ab+mb then d: =mb   else       if mb> =ma+ab then d: =ma       else begin           p: =(ma+mb+ab)/2;           d: =2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab       end;   writeln('минимальное расстояние составляет ',d) end. тестовое решение: введите координаты x и y точки a: -3 -5 введите координаты x и y точки b: 2 5 введите координаты x и y точки m: -3 4 минимальное расстояние составляет 4.02492235949962

Const nx=30; mx=30; var i,j,n,m: integer; a: array[1..nx,1..mx] of integer; b,d: array[1..nx] of integer; begin  write('введите n'); readln(n); write('введите m'); readln(m); for i: =1 to n do begin for j: =1 to m do вegin a[i,j]: =random(100)-20; write(a[i,j]: 4); end; writeln; end; writeln; for i: =1 to n do begin for j: =1 to m do begin if (a[i,j] mod 3 =0) then begin b[i]: = b[i] + a[i,j]; write(a[i,j]: 4); d[i]: = d[i] + 1; end; end; writeln; end; for i: =1 to n do begin if (b[i]=0) and (d[i]= 0) then b[i]: = -10; write(b[i]: 4); end; end.