Programm Hilfe

[boxer123]

var
Form1: TForm1;
zahl:array[1..6] of integer;
zahl1:integer;
doppelt:Boolean;

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl1:=Strtoint(edit1.text);
cop:=zahl1
repeat
zahl1:=max-min;
until doppelt;
edit1.text:=inttostr(edit1.text);
end;

end.