{***************************************************************}
{ 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;