{***************************************************************}
{ Get amount of RAM on EGA, using library function and print it	}
{***************************************************************}

procedure print_memory_size;
var
memory : integer;
begin
    memory := get_memory_size;	{ Get memory size		}
    writeln(memory, 'KBytes of Memory Available'); {Print it    }
end;