Latihan 7 Console Free Pascal

program Latihan7;

{$mode objfpc}{$H+}

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

var

  i: integer;
  Count: Integer;

begin

  write('Berapa kali ?  ');
  readln(Count);

  for i:= 1 to Count do

  begin

    writeln('Cycle number: ', i);

    writeln('Hello there');


    end;

  write('tekanlah ENTER untuk menutup aplikasi');

  readln;



end.