program test
uses WinCrt;
var i:integer;
procedure hallo;
for i:=33 to i:=34 do
i+=1;
writeln('Wir sind bei ', i);
end;
end.
uses WinCrt;
var i:integer;
procedure hallo;
for i:=33 to i:=34 do
i+=1;
writeln('Wir sind bei ', i);
end;
end.