vreckove

program for_vreckove;
{$APPTYPE CONSOLE}
uses SysUtils;
var z,max,min,s,i,vr:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet ziakov zapojenych do prieskumu: ');
  readln(z);
  max:=0;
  min:=255;
  s:=0;
  for i:=1 to z do
    begin
      write('Zadajte vysku vreckoveho ',i,' ziaka: ');
      readln(vr);
      if vr>max then max:=vr;
      if vr<min then min:=vr;
      s:=s+vr;
    end;
  writeln('Sucet vreckoveho: ',s);
  writeln('Priemer vreckoveho: ',s/z:1:2);
  writeln('Najvysia hodnota: ',max);
  writeln('Najnizsia hodnota: ',min);
  readln
end.