Сравнение версий Мемуары / Сказка Про ОСЮНИКС
|
|
Следующая правка →
|
| 29 | 29 | |
|---|---|---|
| 30 | 30 | if Start then begin |
| 31 | 31 | Wave := 440.0 * ord(Key) / 255.0; |
| 32 | WriteLn(Wave, ',', Level); | |
| 32 | 33 | end; |
| 33 |
|
|
| 34 | 34 | Delay(10); |
| 35 | 35 | end; |
| 36 | 36 | end. |