Program Stone Squence Pada Pascal

Contoh Program
program Stone_squence;
uses crt;
var
 j : integer;
begin
 clrscr;
 write ('masukkan angka : '); readln(j);
 repeat
  if j mod 2 = 0 then
    j := j div 2
  else
    j := (j*3) + 1;
  writeln (j);
 until j = 1;
 readln;
end.