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;
end.