program graafik1;
var
 j, lastearv, kood: integer;
 f: text;
 klass, lapsi: string;

begin
 assign(f, 'klassid.txt');
 {$I-}
 Reset(f);
 {$I+}
 if IOResult <> 0 then halt(1);
 writeln('Programm loeb laste arvu klassis failist ');
 writeln('ning illustreerib andmeid. ');
 writeln;
 writeln;
 while not eof(f) do
 begin
  readln(f, klass);
  readln(f, lapsi);
  val(lapsi, lastearv, kood);
  write(klass:5, ' : ');
  for j:=1 to lastearv do
      write('*');
  writeln;
 end;
 close(f);
end.