Integer in Boolean

[Klaus01]

Guten Abend,

das ganze geht auch nur mit einer Schleife.

(..und einrücken nicht vergessen)

Grüße
Klaus

Delphi-Quellcode:

repeat

  i:=i+1;
  write('Eingabe deiner Ratezahl rt=');

  readln(rt);
  writeln('Anzahl deiner Versuche='+IntToStr(i));

  if zf<rt then
    begin
      writeln('Die Zufallszahl ist kleiner als deine Ratezahl');
    end
  else
     begin
       writeln('Die Zufallszahl ist groesser als deine Ratezahl');
     end;
  if i = 5 then
     writeln('Schon 5 Versuche?');
  readln;
  
until i=10;
writeln('10 ist aber echt viel!');
readln;