program Mine;
type
	TCell = (Empty, Bomb);
	TField = record
		Cells: array of TCell;
		Rows: Integer;
		Cols: Integer;
	end;
function FieldGet(Field: TField; Row, Col: Integer) : TCell;
begin
	FieldGet := Field.Cells[Row * Field.Cols + Col];
end;
procedure FieldSet(var Field: TField; Row, Col: Integer; Cell: TCell);
begin
	Field.Cells[Row * Field.Cols + Col] := Cell;
end;
begin
	WriteLn('hello world')
end.