Program koduke;
uses crt;
begin
 sound(440); Delay(500);
 sound(440); Delay(500);
 sound(395); delay(500);
 sound(440); Delay(500);
 sound(350); Delay(500);
 sound(350); Delay(500);
 sound(350); Delay(500);
nosound;
 end.