pisomecka zzz zakusecky

//napiste program ktory vegeneruje n cisiel do sto vypise ich na obrazovku a okrem toho napise ake bolo max min priemer cisiel pocet parnych a neparnych
program generator;
{$APPTYPE CONSOLE}
uses SysUtils;
var max,min,pc,nc,n,i,c:byte;
    sc:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko cisiel chcete vygenerovat?: ');
  readln(n);
  max:=0;
  min:=255;
  pc:=0;
  nc:=0;
  sc:=0;
  randomize;
  for i:=1 to n do
    begin
      c:=random(100)+1;
      write(c,' ');
      sc:=sc+c;
      if c>max then max:=c;
      if c<min then min:=c;
      if c mod 2 = 0 then pc:=pc+1
        else nc:=nc+1;
    end;
  writeln;
  writeln('Maximalne cislo bolo: ',max);
  writeln('Minimalne cislo bolo: ',min);
  writeln('Priemer cisiel bol: ',sc/n:1:2);
  writeln('Pocet parnych cisiel: ',pc);
  writeln('Pocet neparnych cisiel: ',nc);
  readln;
end.