program Project1;

{$APPTYPE CONSOLE}
CONST T = 100;

S = 100;
//описываем переменные

VAR A : ARRAY[1..T, 1..S] OF Integer;
Var B : ARRAY[1..T, 1..S] OF Extended;

N, M, I, J : INTEGER;

Si : Extended;
begin
  //вводим размерность матрицы – количество строк и столбцов
WRITE('vvedite kolvo strok N = ');
READLN(N);
WRITE ('vvedite kol-vo stolbcov M = ');
READLN(M);
//организовываем цикл для ввода элементов матрицы размерностью NхМ

Si := 0;

FOR I := 1 to N do
begin
WRITELN('vvedite ', M,' chisel');
FOR J := 1 TO M DO
begin
READ(A[I, J]);
// если четное, то прибавляеем в общую сумму
if (A[i, j] mod 2) = 0 then Si := Si + A[i, j];
//считаем корень из элемента матрицы
B[i, j] := sqrt(A[i, j]);
end;
end;

for I := 1 to m do
begin
for J := 1 to N do
Write(B[I, J]);
WriteLn;
end;

write('summa = ');
writeln(Si);

readln(N);
end.