Program koduke;
uses crt;
var
jo, le, mi, na, so, ra, di, jo2: real;
toonika: integer;
procedure piiks(aste:real; msek, alus:integer);
begin
 sound(round(aste*alus));
 delay(round(0.8*msek));
 nosound;
 delay(round(0.2*msek));
 if keypressed then halt;
end;

begin
jo:=1;
le:=9/8;
mi:=5/4;
na:=4/3;
so:=3/2;
ra:=5/3;
di:=15/8;
jo2:=2;
toonika:=440;

piiks(mi, 600, toonika);
piiks(mi, 600, toonika);
piiks(le, 600, toonika);
piiks(mi, 600, toonika);
piiks(jo, 600, toonika);
piiks(jo, 600, toonika);
piiks(jo, 600, toonika);
end.