uses
SysUtils;
var
Zahl1: Integer;
Zahl2: Integer;
begin
repeat
until (zahl1<>zahl2);
Writeln('Zufallszahl: geben sie eine Zahl zwischen 0 und 20 ein. Sie haben 3 Versuche');
randomize;
Zahl2:= Random(20);
readln(Zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
writeln('Zweiter Versuch');
readln(Zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
writeln('Dritter Versuch');
readln(zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
if Zahl1>Zahl2 then write('Die richtige Zahl ist: '+IntToStr(zahl2));
if Zahl1<Zahl2 then write('die richtige Zahl ist: '+IntToStr(zahl2));
readln;
try
{ TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
except
on E:
Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
is das richtig so????? is für zufallszahlen möchte aber wissen ob die schleife richtig is