:(* 1)даны две точки на плоскости. запишите алгоритм , позволяющий определить, какая на них находиться ближе к началу координат. 2) запишите алгоритм, позволяющий определить есть ли среди цифр заданного целого трехзначного числа х одинаковые

var  a: array[1..1000] of integer;   n, i, j: integer;   flag: boolean; begin  a[1] : = 0;   write('n = '); readln(n);   for i : = 2 to trunc(sqrt(n)) do    if n mod i = 0 then    begin      a[1] : = i;       n : = n div i;       break;     end;   if a[1] = 0 then  begin    writeln(n);     exit;   end;   i : = 1;   while n < > 1 do  begin  flag : = false;     for j : = a[i] to trunc(sqrt(n)) do      if n mod j = 0 then      begin        a[i + 1] : = j;         inc(i);         n : = n div j;         flag : = true;         break;       end;     if (not flag) and (n < > 1) then    begin      a[i + 1] : = n;       inc(i);       break;     end;   end;

//вторая программа

const m = 4; n = 3; var a: array[1..m, 1..n] of integer; i, j, pr: integer; begin randomize; pr : = 1; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(21) - 10; if a[i, j] > 0 then pr : = pr * a[i, j]; write(a[i, j]: 4, ' '); end; writeln; end; writeln; writeln('преобразованный массив'); for i : = 1 to m do begin for j : = 1 to n do if a[i, j] < 0 then write(pr: 8, ' ') else write(a[i, j]: 8, ' '); writeln; end; readln; end.

  for j : = 1 to i do    write(a[j], ' ');   readln; end.