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
'tuttugum sayi >'
for
say:=
to
10
do
write
' Sayiyi gir '
); readln(b);
if
b=a
then
goto
end
' kaybol olum yaa bilemedin bi turlu zuhaha '
delay(
65000
halt;
x:
'bildiniz bea'
); readln;
.
Eger tuttugun sayiyi gormek istersen
,a); seklinde yaz
her hangi bi sorun iç
in
makara_boy@hotmail
com