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