Program koduke;
uses crt;
procedure piiks(hz, msek: integer);
begin
 sound(hz);
 delay(round(0.8*msek));
 nosound;
 delay(round(0.2*msek));
 if keypressed then halt;
end;

begin
clrscr;
write('Kus '); piiks(440, 600);
write('on ');  piiks(440, 600);
write('mi');   piiks(392, 600);
write('nu ');  piiks(440, 600);
write('ko');   piiks(350, 600);
write('du');   piiks(350, 600);
write('ke?');  piiks(350, 600);
end.