program name;
var
autor,logo,pmenu,menu,kur:image;
x,y,key:integer;
begin
x:=0;y:=100;
kur:=loadimage('/kur.png');
logo:=loadimage('/logo.png');
autor:=loadimage('/autor.png');
pmenu:=loadimage('/pmenu.png');
menu:=loadimage('/menu.png');
begin
drawimage(autor,0,0);
delay(700);
repaint;
drawimage(logo,0,0);
delay(700);
repaint;
begin
repeat
drawimage (logo,0,0);
drawimage(pmenu,0,0);
drawimage(menu,0,0);
drawimage(kur,x,y);
repaint;
key:=KeyToAction(GetKeyPressed);
if (key=GA_DOWN) then y:=y+1;
until key<>GA_FIRE;
begin
end;
end;
end;
end.