[mixmann]

Код:

var 
  i,x: integer;
begin
  for i:=0 to 100 do
    begin
      x:=x+1;
    end;
end;

lmikle: Учимся пользоваться тегами.