{ задание 1 }
const o_n = 20;
      o_m = 20;

var arr: array [1..o_n, 1..o_m] of integer;
    sum, i, j, n, m: integer;

begin
  (n, m) := readinteger2('(n, m):');

  for i := 1 to n do
    for j := 1 to m do
      read(arr[i, j]);

  for j := 1 to m do begin
    sum := 0;
    for i := 1 to n do
        sum += arr[i, 1];
  end;

    writeln('sum: ', sum, ' ');
end.

{ задание 2 }
const o_n = 20;
      o_m = 20;

label 1;
var arr: array [1..o_n, 1..o_m] of integer;
    sum, i, j, n, m: integer;

begin
  1: (n, m) := readinteger2('(n, m):');

  if n <> m then
    goto 1;

  for i := 1 to n do
    for j := 1 to m do
      read(arr[i, j]);

  for i := 1 to n do
    for j := 1 to m do
      if i = j then
        sum += arr[i, j];

    writeln('sum: ', sum, ' ');
end.

{ задание 3 }
const o_n = 20;
      o_m = 20;

var arr: array [1..o_n, 1..o_m] of integer;
    max, i, j, n, m: integer;

begin
  (n, m) := readinteger2('(n, m):');

  for i := 1 to n do
    for j := 1 to m do
      read(arr[i, j]);

  for i := 1 to n do
    for j := 1 to m do
      if (i = 1) or (i = n) then
        if arr[i, j] > max then
        max := arr[i, j];

    writeln('max: ', max, ' ');
end.

{ задание 4 }
const o_n = 20;
      o_m = 20;

var arr: array [1..o_n, 1..o_m] of integer;
    m_num, sum, i, j, n, m: integer;

begin
  (n, m, m_num) := readinteger3('(n, m, m_num):');

  for i := 1 to n do
    for j := 1 to m do
      read(arr[i, j]);

  sum := 0;
  for i := 1 to n do
    for j := 1 to m do
      if i + j = m_num then
        sum += arr[i, j];

    sum := sum * 2;
    writeln('sum: ', sum, ' ');
end.

{ задание 5 }
begin
  var str := readstring('String:');
  var (_type, _err) := (0, 0);

  val(str, _type, _err);
  print(_type > 0 ? 'Number' : 'String');
end.

{ задание 6 }
begin
  var (n1, n2) := readinteger2('(n1, n2):');
  var res := '';

  res := inttostr(n1) + inttostr(n2);
  print(res);
end.

{ задание 7 }
var flag: boolean := false;
    st, res: string;
    i: byte;

begin
  st := readstring('ФИО:');

  for i := 1 to st.length - 1 do begin
    if st[i] = ' ' then begin
      res += flag ? '' : ' ';
      flag := true;
    end;

    if (st[i] <> ' ') and (not flag) then
      res += st[i];

    if (st[i] = ' ') and flag then
      res += st[i+1] + '.';
  end;

  write(res);
end.