Program koduke;
uses crt;
var k, a: real;
begin
k:=1.5; {helikorguse muutus}
a:=0.8; {helivaltuse muutus}
 sound(round(k*440)); Delay(round(a*500)); Nosound; delay(round(a*100));
 sound(round(k*440)); Delay(round(a*500)); Nosound; delay(round(a*100));
 sound(round(k*395)); delay(round(a*500)); Nosound; delay(round(a*100));
 sound(round(k*440)); Delay(round(a*500)); Nosound; delay(round(a*100));
 sound(round(k*350)); Delay(round(a*500)); Nosound; delay(round(a*100));
 sound(round(k*350)); Delay(round(a*500)); Nosound; delay(round(a*100));
 sound(round(k*350));
 Delay(500);
Nosound;
end.