Zadatak 1.

var
  n, m : integer;
  i, j, min : integer;
  a : array[1..100,1..100] of integer;
  f, g : Text;
  suma : longint;
begin
  Assign(f,'zad1.in'); Reset(f);
  Assign(g,'zad1.out'); Rewrite(g);

  Read(f,n,m);
  for i := 1 to n do
    for j := 1 to m do Read(f,a[i,j]);

  suma := 0;
  for i := 1 to n do
    begin
      min := a[i,1];
      for j := 2 to m do
        if(a[i,j] < min) then min := a[i,j];
      suma := suma + min;
    end;

  WriteLn(g,suma);
  Close(f);
  Close(g);
end.

Zadatak 2.

var
  n, i, j, m : integer;
  a : array[1..1000] of string;
  s : string;
  f, g : Text;

function Dobar(s : string) : boolean;
var
  i, sam, sug : integer;
begin
  sam := 0; sug := 0;
  for i := 1 to Length(s) do
    if(s[i] <> ' ') then
      if(s[i] in ['a','e','i','o','u','A','E','I','O','U']) then
        sam := sam + 1
      else
        sug := sug + 1;
  if sam > sug then Dobar := True
  else Dobar := False;
end;

begin
  Assign(f,'zad2.in'); Reset(f);
  Assign(g,'zad2.out'); Rewrite(g);

  ReadLn(f,n); m := 0;
  for i := 1 to n do
    begin
      ReadLn(f,s);
      if(Dobar(s)) then
        begin
          m := m + 1;
          a[m] := s;
        end;
    end;

  for i := 1 to m-1 do
    for j := i+1 to m do
      if(a[i] > a[j]) then
        begin
          s := a[i]; a[i] := a[j]; a[j] := s;
        end;

  for i := 1 to m do WriteLn(g,a[i]);
  Close(f); Close(g);
end.

Zadatak 3.

var
  n, k, j, p, q, pMax, qMax : integer;
  i, m : longint;
  mat : array[1..50,1..50] of longint;
  komb : array[1..50] of integer;
  f, g : Text;

begin
  Assign(f,'zad3.in'); Reset(f);
  Assign(g,'zad3.out'); Rewrite(g);

  Read(f,n,m,k);

  for i := 1 to n-1 do
    for j := i+1 to n do mat[i,j] := 0;

  for i := 1 to m do
    begin
      for j := 1 to k do Read(f,komb[j]);

      for p := 1 to k-1 do
        for q := p+1 to k do
          mat[komb[p],komb[q]] := mat[komb[p],komb[q]] + 1;
    end;
  pMax := 1; qMax := 2;
  for p := 1 to n-1 do
    for q := p+1 to n do
      if(mat[p,q] > mat[pMax, qMax]) then
        begin
          pMax := p; qMax := q;
        end;
  WriteLn(g,pMax,' ',qMax);
  Close(f); Close(g);
end.