var i:byte;begin for i:=3to 14do writeln(copy("C C#D D#E F F#G G#A A#B ",i*2-5,2),220*2**(i/12):11:3)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page