Запись натурального числа в системах счисления с основанием 4 и 6 заканчивается на 0. найдите минимальное натуральное число, удовлетворяющее этим условиям.

Type       tpoint = record x, y: real; end; var       a, b, c, d: tpoint;       function pl(a, b, c: tpoint): real;       var v1, v2: tpoint;       begin             v1.x : = a.x - b.x; v1.y : = a.y - b.y;             v2.x : = a.x - c.x; v2.y : = a.y - c.y;             pl : = abs(v1.x * v2.y - v1.y * v2.x) / 2;       end; begin       read(a.x, a.y, b.x, b.y);       read(c.x, c.y, d.x, d.y);       write(pl(a, b, c)+pl(a, c, d)); end.

Var       ans: real;       n, i, j, kol: integer;       a: array of array of real; begin       read(n); setlength(a, n+1);       for i : = 1 to n do setlength(a[i], n+1);       for i: = 1 to n do              for j : = 1 to n do read(a[i][j]);       for i : = 1 to n do             if (a[i][i] > 0) then begin inc(kol); ans : = ans + a[i][i]; end;       if (kol > 0) then begin writeln('ср. ар. с гл. диагонали = ', ans / kol); kol : = 0; ans : = 0; end       else writeln('элементов > 0 на гл. диагонали - нет ! ');       for i : = 1 to n do             if (a[i][n-i+1] > 0) then begin inc(kol); ans : = ans + a[i][n-i+1]; end;       if (kol > 0) then writeln('ср. ар. с поб. диагонали = ', ans / kol)       else writeln('элементов > 0 на поб. диагонали - нет ! '); end.