Samuti saame lugu kiiremaks või aeglasemaks muuta: kui korrutame delay parameertrina olevat arvu näiteks kahega, siis on kõi kestused pikemad ning lugu on poole aeglasem.
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.