16 lines
190 B
Plaintext
16 lines
190 B
Plaintext
uses Crt;
|
|
|
|
var i: integer;
|
|
|
|
|
|
begin
|
|
for i:=1 to 50 do begin
|
|
Sound(800);
|
|
Delay(1);
|
|
Sound(1000);
|
|
Delay(1);
|
|
Sound(1200);
|
|
Delay(1);
|
|
end;
|
|
NoSound;
|
|
end. |