\begin{verbatim}
program testmezelf;

uses crt;

const cijfers:array[0..9] of string = ('nul','een','twee','drie','vier',
                              'vijf','zes','zeven','acht','negen');
var aantallen:array[0..9] of integer;
    totaalaantalkeren,i:integer;
    s:string;

BEGIN
for i:= 0 to 9 do aantallen[i]:=0;
totaalaantalkeren:=0;
repeat
  clrscr;
  readln(s);
  for i:= 0 to 9 do if s=cijfers[i]  then
    begin
      inc(aantallen[i]);
      inc(totaalaantalkeren);
    end;
  if s = '?' then begin writeln(totaalaantalkeren);
                        repeat until ord(readkey)=27 end;
until s='einde';
writeln;
for i:= 0 to 9 do writeln('aantal keren ',i,':',aantallen[i]);
writeln('totaal aantal keren:',totaalaantalkeren);
repeat until ord(readkey)=27;
END.
\end{verbatim}