Pasted

program rando;
uses crt;
var n, i, i2: longint;
begin
 clrscr;
 randomize;
 n:=random(100);
 i:=0;
 repeat
  write('Nhap so: ');
  readln(i2);
  inc(i);
  if i<>5 then begin
   if i2>n then writeln('Nho hon');
   if i2<n then writeln('Lon hon');
  end;
 until (i2=n) or (i=5);
 if (i=5) and (i<>n) then write('Sai') else if (i<=5) and (i2=n) then write('Dung');
 readln;
end.