2000/01 – Fase scolastica – 10

Cosa fa il seguente frammento di programma?

Var
   i: Integer;
Begin
   i:=0;
   While(i < 50) Do
      If(i Mod 2 <> 0) Then
         Write(i);
    i:=i+1
End.