Vysvetlenie pisomky

program generator; //Názov programu
{$APPTYPE CONSOLE}
uses SysUtils; //Kniznica
var max,min,pc,nc,n,i,c:byte; //Dátove typy premennych.
    sc:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko cisiel chcete vygenerovat?: '); //Výpis na obrazovku
  readln(n); //Ulozenie zadaného čísla/vety od používatela
  max:=0; //Vynulovanie premennej max
  min:=255; //Zadanie maximalneho mozneho cisla
  pc:=0; //Vynulovanie premennej pc
  nc:=0; //Vynulovanie premennej nc
  sc:=0; //Vynulovanie premennej sc
  randomize; //Prikaz na povolenie prikazu random!
  for i:=1 to n do //Zaciatok cyklu tento cyklus pôjde od 1 po N
    begin
      c:=random(100)+1; //Premenna c bude obsahovat NÁHODNÉ číslo od 1 po 100
                        //tá +1 tam je preto aby sa zabranilo vygenerovaniu 0
      write(c,' '); //Vypisanie vygenerovaneho cisla na obrazovku
      sc:=sc+c; //Sucet vsetkych vygenerovanych cisiel kvôli priemeru
      if c>max then max:=c; //Podmienka ak bude c>max tak sa max zmeni na max:=c
      if c<min then min:=c; //Podmienka ak bude c<min tak sa min zmeni na min:=c
      if c mod 2 = 0 then pc:=pc+1 //Ak bude zvysok po deleni 0 tak je cislo parne
                                   //preto sa zapocita pc:=pc+1
        else nc:=nc+1; //ak nebude zvysok po deleni 0 tak sa pripocita ku neparnym
    end; //Ukonceniu cyklu
  writeln; //Preskocenie riadku
  writeln('Maximalne cislo bolo: ',max); //vypis na obrazovku
  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.