znamky

program znamky;
{$APPTYPE CONSOLE}
uses SysUtils;
type znamka=0..5;
var z,i,max,min:znamka;
    n,v:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet znamok: ');
  readln(n);
  v:=0;
  max:=0;
  min:=5;
  for i:=1 to n do
    begin
      write('Zadajte ',i,' znamku: ');
      readln(z);
      if z>max then max:=z;
      if z<min then min:=z;
      v:=v+z;
    end;
  writeln('Sucet znamok: ',v);
  writeln('Najlepsia znamka: ',min);
  writeln('Najhorsia znamka: ',max);
  writeln('Priemer znamok: ',v/n:1:2);
  readln
end.