procedure main;
var
i,a,b :Integer;
begin
a = 0;
b = 2;
for i := 1 to 8 do
begin
if(a = i) then
begin
while(a) do
begin
if(a = b) then
begin
println("a");
Result := 0;
exit();
end
else
begin
printf("b");
Result := 1;
exit();
end;
Result := 2;
exit();
end;
end;
end;

確かに能率は少し落ちるな。大変だ。