Latihan 6 Console Free Pascal

program Latihan6;

{$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
  writeln('Halo yang disana');

  // writeln('Halo yang disana');


   write('Tekanlah tombol ENTER untuk menutup');

   readln;


end.