{***************************************************************}
{ Get number of rows and column using library function 		}
{***************************************************************}

procedure print_rows_cols;
var
x : integer;
y : integer;
begin
    x := 0;
    y := 0;
    get_rows_n_cols(seg(x),ofs(x),seg(y),ofs(y));{Get number of rows and cols}
						 { and print it		}
    writeln('Number of rows = ',x,' and columns = ', y);
end;