Programalama > PASCAL

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.


ziya ahmedsoy
sonata@nakhchivan.az