Что такое операционная система (ос) какие основные функции она выполняет?

ос - это операционная система, например windows xp или windows vista, это базовая программа которая поволяет работать на пк а также набор стандартых прог и утилит

var a: array[1..100,1..100]of integer;

n, m, i, j, mini, minj, maxi, maxj : integer;

 

begin

write('n, m -> ');

readln(n, m); {считываем размер матрицы}

write('input matrix -> ');

for i: =1 to n do for j: =1 to m do

begin

  write('a[',i,',',j,'] -> ');

  readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini: =1;

minj: =1;

maxi: =2;

maxj: =2;

for i: =1 to n do for j: =1 to m do if a[i,j] > a[maxi, maxj] then

begin

  maxi : = i;

  maxj : = j;

end else if a[i, j] < a[mini, minj] then

begin

  mini : = i;

  minj : = j;

end;

writeln('max = a[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('min = a[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end.

program figyri;

uses crt,graphabc;

var xc,yc: integer;

    m: integer;

begin

xc: =windowwidth div 2;

yc: =windowheight div 2;

repeat

write ('введите число');

read (m);

if m> 2 then

    begin

      setpencolor(clgreen);

      rectangle(xc-100,yc-100,xc+100,yc+100);

      floodfill(xc,yc,clgreen);

      readkey;

    end;

if m< 2 then      

    begin

      setpencolor(clred);

      line (xc-100,yc+50,xc+100,yc+50);

      line (xc+100,yc+50,xc,yc-100);

      line(xc,yc-100,xc-100,yc+50);

      floodfill(xc,yc,clred);

      readkey;

    end;

if m mod 2=0 then

    begin

      setpencolor(clblue);

      circle (xc,yc,100);

      floodfill(xc,yc,clblue);

      readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д