Hailstone number

program Hailstone_number;
var
  i,n,x:integer;
  
begin
    i:=0;
    write('Input a number?');
    readln(n);
    writeln('Initial value is ',n);
    
    while n<>1 do
       begin
         if n mod 2 = 0 then
            n:= n div 2
         else
            n:= 3*n+1;
         writeln('Next value is ',n);
         i:=i+1;
       end;
       
    writeln;   
    writeln('Final value is 1');
    writeln('Number of steps is ',i);
    
end.