برنامه پاسکال

[Keih@n.G]

Uses CRT;
Var RANDNUM,GUESS,COUNT : integer ;
CHOICE : Char; 
 
Begin 
CLRSCR;
Randomize;
Repeat 
RANDUM:= Random(10)+1;
For Count :=1to5 do 
Begin 
Write(‘GUESS a number Between 0 to 10 ‘);
Readln(GUESS);
If RANDNUM > GUESS Then 
Writeln(‘Number is too low ‘);
Else if RANDNUM < GUESS Then 
Writeln(‘Your Number is too High’);
Else 
Begin 
Writeln(‘You Are Correct ..!’)
Count:=5
End
End;
Write(‘Do You Wanna Play Again ?(Y/N)’);
Readln(CHOICE);
IF CHOICE = N ‘ n Then 
End.
Else If CHOICE = Y ‘ y Then 
Goto line 15

Bebin ta inja ro neveshtam Baghiasho nemidonam chi kar knm ..!