priemer_znamok

//Napiste program na vypocet priemeru znamok ziakov z pisomky v triede
program priemer_znamok;
{$APPTYPE CONSOLE}
uses SysUtils;
var sz,zn,n,i:byte;
    pz:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet ziakov: ');
  readln(n);
  sz:=0;
  for i:=1 to n do
    begin
      write('Zadajte ',i,' znamku: ');
      readln(zn);
      sz:=sz+zn;
    end;
  pz:=sz/n;
  write('Priemer znamok je: ',pz:1:2);
  readln;
end.