Запиши программу на языке паскаль. определить, является ли число, введенное с клавиатуры простым.

Var  a: int64;   ans: boolean; function is_prime(a: int64): boolean; var  i: int64; begin  is_prime : = true;   i : = 2;   while (i * i < = a) do   if (a mod i = 0) then begin    is_prime : = false;     exit;   end else    i : = i + 1; end; begin  readln(a);   ans : = is_prime(a);   if ans then    writeln('prime')  else    writeln('composite'); end.

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

2 единицы в двоичной записи числа 1025

10000000001