Завтра сдавать, а я в Паскале ни бум-бум...

var n, i, m: integer;
a: array [1..10000] of integer;
 
function is_prime(n: integer) : boolean;
var i: integer;
begin
is_prime := true;
for i := 2 to round(sqrt(n)) do
  if n mod i = 0 then begin is_prime := false; break; end;
end;
 
begin
readln(n);
for i := 1 to n do read(a[i]);
 
m := MaxInt; // нехорошо, конечно
for i := 1 to n do 
  if (is_prime(a[i]) and (m > a[i])) then m := a[i];
 
writeln(m);
readln;
end.

const
  nsize=20;
var
  n,m,i,j,s_minus:integer;
  a:array[1..nsize,1..nsize] of integer;
  b:array[1..nsize] of integer;
begin
  randomize;
  repeat
    write('Kol-vo strok-> ');
    readln(n);
  until n in [1..nsize];
  repeat
    write('Kol-vo stolbtsov-> ');
    readln(m);
  until m in [1..nsize];
  writeln;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-10+random(21);
        write(a[i,j]:3);
        if j=m then 
          writeln;
      end;
  for i:=1 to n do
    begin
      s_minus:=0;
      for j:=1 to m do
        begin
          if a[i,j]<0 then
            s_minus:=s_minus+a[i,j];
        end;
      b[i]:=s_minus;
    end;
  writeln;
  for i:=1 to n do
    write(b[i]:4);
  readln;
end.