Api функции для работы с процессами и потоками в различных операционных системах?

Const   nn=50; // максимальное количество учеников var   i,n,sm,sd,km,kd: integer;   am,ad: real;   var a: array[1..nn] of integer; begin   write('введите количество учеников: ');   read(n);   writeln('введите рост учеников');   sm: =0; sd: =0; km: =0; kd: =0;   for i: =1 to n do       begin       read(a[i]);       if a[i]> 0 then begin sd: =sd+a[i]; inc(kd) end       else begin sm: =sm-a[i]; inc(km) end       end;   am: =sm/km; ad: =sd/kd;   write('средний рост мальчиков (',am: 0: 1,') ');   if am-ad< =10 then write('не ');   writeln('превышает средний рост девочек (',ad: 0: 1,') ');   writeln('больше, чем на 10 см') end.       примерное решение введите количество учеников: 9 введите рост учеников -192 165 -174 179 -172 171 169 170 -170 средний рост мальчиков (177.0) не превышает средний рост девочек (170.8) больше, чем на 10 см