program ukol14;
uses crt;
var
   znamka,soucet,pocet:integer;
   odpoved:char;

begin
  clrscr;
  while odpoved <> 'N' do  {cyklus pro opakovani zadani}
   begin
    clrscr;
    soucet:=0;
    pocet:=0;

    repeat                {cyklus pro zadavani jednotlivych znamek}
     write('Zadejte znamku nebo "Esc": ');
     znamka:=ord(readkey)-48;     {ordinalni cisla jsou o 48 vetsi}
     if (znamka>=1) and (znamka<=5) then
      begin
       writeln(znamka);
       soucet:=soucet+znamka;
       pocet:=pocet+1;
      end
     else
      begin
       if znamka=-21 then writeln('Esc'){ord "Esc" je 27 -> 27-48=-21}
       else writeln('neplatna hodnota');
      end;
    until znamka=-21;

   writeln('-----------------------------');
   if pocet=0 then writeln('Nezadali jste zadnou znamku!')
   else
    begin
     writeln('Pocet znamek: ', pocet);
     writeln('Prumer:       ', (soucet/pocet):0:2);
    end;
   writeln('-----------------------------');
   writeln('Chcete zadavat znovu? (Ano/Ne): ');
   odpoved:=Upcase(readkey);
   end;

end.