Deutsches Lazarusforum

jjo oder so danke ^^

Eigenltich sollte am ende die Summe aller durch 3 oder 5 teilbaren Zahlen(hier bis 10) rauskommen aber leider funktioniert es nicht

procedure TForm1.Button1Click(Sender: TObject);
var
itest,iges:integer;

begin
iges:=0;
itest:=3;
begin
while itest<10 do
begin
if (itest mod 3 = 0) or (itest ...