{ %fail }
{ %opt=-O3 }
var a : integer;
begin
  for a := 1 to 1 do
      for a := 1 to a do
  end;
end.