Program Cetak Histogram

Uses Crt;
Type larikem = array [1..50] of integer;
Var larik : larikem;
   J, K : Integer;

Procedure Bacalarik (var A: LarikEm; n:integer);
Var i : integer;
Begin
   For i := 1 to n do
      Begin
        Write(‘masukan Nilai A[‘,i,’} : ‘);readln(A[i]);
      End;
End;

Procedure Cetak Histogram(CountA: Larikem; n:integer);
Var i , j: integer;
Begin
For  i := 1 to n do
   Begin
      Write(i,’ ’);
     For j:= 1 to countA[i]do
      Write(‘*’);
      Writeln;
      End;
   End;

Begin
Write(‘ Masukan Jumlah data: ’); readln(j);
Writeln;
Writeln(‘Masukan data: ’);
Bacalarik(larik.j)
Writeln;
Writeln(‘Cetak Histogram: ‘);
CetakHistogram(larik.j);
Writeln;
End.