|
|
|
| |
<%%>
uses crt;
var
a:integer;
i:longint;
g:char;
begin
textbackground(lightblue);
clrscr;
textcolor(yellow);
writeln('Geri sayim Baslasin mi ?(1-e/2-h)');
repeat
g:=upcase(readkey);
until g in['1','2'];
if g='1' then
begin
clrscr;
writeln('Kactan geriye sayilacak ?');
readln(a);
for i:=a downto 1 do
begin
sound(i);
delay(1005);
nosound;
gotoxy(15,5);
writeln(i-1,' ');
end;
if i=1 then
begin
for i:=00 to 20 do
begin
sound(i);
delay(65);
nosound;
end;
end;
end;
if g='2' then
begin
clrscr;
writeln();
writeln('Ger sayim samiyacaksan niye giriyon be adam ?, Asabimi bozma. Bir tusa bas');
readkey;
exit;
end;
readln();
end.
www.vehbifiliz.tr.gg
|
|
|
|
