Latihan 11 Free Pascal Console

program Latihan11;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

// Repeat Until Loop

var

  Num : Integer;

begin

  repeat

    write('Mohon memasukan sebuah nomer: ');
    readln(num);

  until Num <= 0;

  writeln('Sudah selesai, mohon menekan tombol ENTER untuk menutup aplikasi');
  readln;

end.