{***************************************************************}
{ Get current page size using the library function and print it	}
{***************************************************************}

procedure print_page_size;
var
i : integer;
begin
    i := get_page_size;
    writeln('Page size = ',i);
end;