|
Uses Crt;
Var
G,A : word;
begin
Randomize;
G := Random(1000);
Writeln('Guess A Number From 0 to 1000 ');
Readln(A);
if A = G then Writeln('You Are Right Number are ',G)
else Writeln('You Are Wrong ! The Number Are =',G);
repeat until keypressed;
end.
|