Program koduke;
uses crt;
begin
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(395);
 delay(500);
 Nosound;
 delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 if keypressed then exit;
 Delay(600);

 sound(440);
 Delay(500);;
 Nosound;
 delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(395);
 delay(500);
 Nosound;
 Delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 if keypressed then exit;
 delay(600);

 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(440);
 delay(500);
 Nosound;
 Delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(470);
 Delay(500);
 Nosound;
 delay(100);
 sound(470);
 Delay(500);
 Nosound;
 delay(100);
 sound(470);
 Delay(500);
 Nosound;
 if keypressed then exit;
 Delay(600);



 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(395);
 delay(500);
 Nosound;
 Delay(100);
 sound(440);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
 delay(100);
 sound(350);
 Delay(500);
 Nosound;
end.