unit Test1 var Integer begin for to 10 do end

1
2
3
4
5
6
7
unit Test1;
var
i:Integer;
begin
for i:=0 to 10 do
j:=j+1;
end;