Programalama > PASCAL

uses crt;
label x;
var say,b,a:integer;
begin clrscr;
gotoxy(2,1); writeln('1-100 arasi bir sayidir--Bak simdi senlen bir oynayak 10hakin var bilersen elveda bilemessen :)');
randomize;
a:=random(100);
writeln('tuttugum sayi >');
  for say:=1 to 10 do
   begin
   write(' Sayiyi gir  '); readln(b);
   if b=a then goto x;
   end;
   write('   kaybol olum yaa bilemedin bi turlu zuhaha ');
 delay(65000);
 halt;
  x:   write('bildiniz bea'); readln;  end.



Eger tuttugun sayiyi gormek istersen writeln('tuttugum sayi >',a); seklinde yaz      

her hangi bi sorun için makara_boy@hotmail.com