program p11;
uses Crt;

var pocet,nejhorsi,i:byte;
    prumer:real;
    soucet:integer;
    znamky:array[0..255] of byte;

begin
clrscr;
write('Zadej pocet znamek : ');
readln(pocet);
for i:=1 to pocet do
begin
  write('Zadej ',i,'. znamku : ');
  readln(znamky[i]);
end;
for i:=1 to pocet do
begin
  soucet:=soucet+znamky[i];
  if nejhorsi<znamky[i] then nejhorsi:=znamky[i];
end;
prumer:=soucet/pocet;
writeln('Prumer znamek je ',prumer:5:2);
writeln('Nejhorsi znamka je ',nejhorsi);
if (prumer<=1.5) and (nejhorsi<3) then writeln('Zak mel vyznamenani')
                                  else writeln('Zak nemel vyznamenani');
repeat until keypressed;
end.