Program sederhana Lazarus Pascal (Deret I)

selamat mencoba script ini permirsaah : :)

program deretangkaistimewa;
uses wincrt, crt;
var n,bb:integer;
  pilih:char;
  label cek, lagi;
begin
  lagi:
  clrscr;
  Writeln ('Selamat datang di program Deret Angka Istimewa');
  Writeln ('Selamat mencobaa...');
  Write ('Silahkan masukkan nilai suku pertama yang anda inginkan : ');
  Readln (n);
  bb:=1;
  Writeln;
  Writeln ('Baiklah,, untuk melihat deret istimewa ini silahkan tekan enter');
  Readln;
  Writeln ('Angka-angka nya adalah sebagai berikut : ');
  cek:
  if n>1 then
     begin
     write(n, ',');
     if n mod 2=0 then n:=n div 2 else n:= 3*n+1;
     bb:=bb+1;
     goto cek;
     end;
  Writeln (n,'.');writeln;
  Writeln ('Terdapat ', bb, ' bilangan pada barisan tersebut.');
  Writeln;
  write ('Mau coba lagi? (Y/T): ');readln(pilih);
  if (pilih='Y') or (pilih='y') then goto lagi;
  Writeln('Program anda sudah selesai.... terimakasih :) ');
  readln;
end.