أين الخطأ 2

[chamsderreche]

كود :

procedure TForm1.FormCreate(Sender: TObject); var c:integer; begin for c:=1 to 80000 do showmessage(inttostr(c)); end;

ذلك ليس خطآ لأني قمت بارجاع قيمة c إلى الصفر و لكن الآخر صحيح 100% فنسيان do خطأ لا يغتفر