program t11;
var
  i : integer ;
begin
  for i := 1 to 10 do
    i := i
end.