Program dos;
var fon, igrofon, menu: image;

procedure multi;
begin
drawimage(igrofon,0,0);
repaint;
delay(3000);
end;
procedure bot;
begin
drawimage(fon,0,0);
repaint;
delay(3000);
end;
Begin
	fon:=loadimage('fon.png');
	igrofon:=loadimage('igrofon.png');
	menu:=loadimage('menu.png');
	while true do
	begin
	drawimage(menu,0,0);
	repaint;
	if getKeyClicked = KE_KEY1 then multi;
	if getKeyClicked = KE_KEY2 then bot;
	end;
End.