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

[sAsAn.K]

کیهان جان ، عزیز اینو یه تست بزن :

program keihan;
uses crt;
var
   a,i,r:integer;
begin
   clrscr;
   randomize;
   r:= random(20);
   while i<=3 do
      begin
      writeln('enter a number: ');
      readln(a);
      if a=r then
         begin
            writeln('you are so lucky! correct!');
            break;
         end;
      if a<r then
         writeln('entered number is lower than cpu s!');
      if a>r then
         writeln('entered number is higher than cpu s!');
      i:=i+1;
      writeln('cpu s randomly selected number is: ',r);
      end;
readln
end.