var a;

begin
  a:=1;
  do a:=a+1; while a<3;
end.