Priemer IQ

//Spravte si v triede IQ test a vytvorte program ktory vyhodnoti priemerne IQ a vypise kolko ziakov ma IQ z
//intervalu 90 az 100 kolko ma z intervalu 101-110 111-120 a nad 120+
//Zistite ci sa pocet prezitych rokov vasich predkov zvysuje to znamena ci je to rastuca postupnost program skonci hladanie akonahle vie odpovedat
//Napiste program ktory odpouzivatela nacita vetu ukoncenu bodkou a vypise tu istu vetu ale vsetky velke pismena zmeni na male.
program iqpriemer;
{$APPTYPE CONSOLE}
uses SysUtils;
var n,s1,s2,s3,s4,i,iq:byte;
    sc:word;
    piq:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko ziakov je v triede?: ');
  readln(n);
  s1:=0;
  s2:=0;
  s3:=0;
  s4:=0;
  sc:=0;
  for i:=1 to n do
    begin
      write('Zadajte IQ ',i,' ziaka: ');
      readln(iq);
      sc:=sc+iq;
      case iq of
        90..100:s1:=s1+1;
        101..110:s2:=s2+1;
        111..120:s3:=s3+1;
        121..200:s4:=s4+1;
      end;
  end;
  piq:=sc/n;
  writeln('Piermer IQ v triede bol: ',piq:1:2);
  writeln('Ziakov s IQ 90-100 bolo: ',s1);
  writeln('Ziakov s IQ 101-110 bolo: ',s2);
  writeln('Ziakov s IQ 111-120 bolo: ',s3);
  writeln('Ziakov s IQ 120+ bolo: ',s4);
  readln;
end.