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

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

کد:

---

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.

---