program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
x, i, j, m, n, max, min: integer;
a: array [1..99, 1..99] of integer;

procedure v(var p: integer);
var
  k: integer;
  s: string;
begin
  repeat
    readln(s);
    val(s, p, k);
    if (k <> 0) then
      write('Ââåäèòå ýëåìåíò ìàññèâà ')
    else
      until (k = 0);
  end;
  begin
    write('Ââåäèòå êîëè÷åñòâî ñòðîê: ');
    readln(n);
    if (n < 1) or (n > 99) then
      repeat
        write('Ââåäèòå êîëè÷åñòâî ñòðîê: ');
        readln(n);
      until (n >= 1) and (n < 100);
    write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ: ');
    readln(m);
    if (m < 1) or (m > 99) then
      repeat
        write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ: ');
        readln(m);
      until (m >= 1) and (m < 100);
    write('Ââåäèòå ìèíèìàëüíûé ýëåìåíò ìàññèâà: ');
    v(min);
    write('Ââåäèòå ìàêñèìàëüíûé ýëåìåíò ìàññèâà: ');
    v(max);
    if min > max then
      while min > max do
      begin
        write('Ìèíèìàëüíûé ýëåìåíò ìàññèâà > ìàêñèìàëüíîãî, ââåäèòå ñíîâà ìèíèìàëüíûé ýëåìåíò: ');
        v(min);
      end;
    writeln('Ýëåìåíòû ìàññèâà:');
    for i:= 1 to n do
      for j:= 1 to m do
       a[i, j]:=(max - min + 1) + min;
    begin
    for i:= 1 to n do
      for j := 1 to m do
        write(' ', a[i, j]:2);
      writeln
    end;
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(' ', a[i, j]:2);
      writeln;
    end;
    writeln('íå÷åòíûå ýëåìåíòû ìàññèâà:');
    for i := 1 to n do
      for j := 1 to m do
      if a[i, j] mod 2 <> 0 then
        write(a[i, j], ' ');
    readln;
end.