var
  i : Word;

begin
  i := 2;
  if (i<3) then begin
     case i of
       0 : Writeln('i = 0');
       1 : Writeln('i = 1');
       2 : Writeln('i = 2');
     End;
  End;
End.