var a,b;

begin
  a:=1;
  do begin
    a:=a+1;
    b:=2;
    do
      b:=b-1;
    while b>0;  
  end;
  while a<3;
end.