How to write numbers in Japanese over 20?

How would you write a program to create a frequency table from entering 20 numbers in pascal for numbers 1-5?

• Basically, how would one write a program in pascal language, using arrays to create a frequency table from the numbers entered?   So the user would input 20 numbers, (from 1-5) and then the output would be something like 1     5 2     7 3     8 4     0 5     0

• Answer:

  You can do this: procedure FreqTable; var i,j : integer; ftable : array [0..4] of integer; begin // reset the array values to 0 for i := 0 to 4 do ftable[i] := 0; for i := 0 to 19 do begin readln(j); if (ftable > 5) then continue; ftable[j - 1] := ftable[j - 1] + 1; end; // display the contents of the frequency table array for i := 1 to 5 do writeln(i, ftable[i - 1]); end; This procedure is basic at best. It always assumes that there are 20 numbers being entered.