Пиксель на экране монитора представляет собой

Информация на мониторе

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

давайте посмотрим на экран компьютера через увелечительное стекло.

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

и те, и другие группируются по три штуки, причем одного цвета, но разных оттенков.

они называются пикселями 

Var   n, i, j, askthemountains: longint;   a: array of longint;   fl: text; begin   assign(fl, 'input.txt');   reset(fl);   readln(fl, n);   setlength(a, n);   for i : = 0 to (n - 1) do     readln(fl, a[i]);   close(fl);   assign(fl, 'output.txt');   rewrite(fl);       for i : = 0 to n - 1 do     for j : = i to n - 1 do       if (a[i] > a[j]) then       begin         askthemountains : = a[i];         a[i] : = a[j];         a[j] : = askthemountains;       end;   for i : = 0 to n-1 do     writeln(fl, a[i]);   close(fl); end.

//pascalabc.net 3.2 сборка 1318 //1 uses   graphabc;   var   a,h,x,y: integer;   c: char; begin writeln('read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then   begin     a: =random(200);     writeln('длина ребра=',a,', объём=',power(a,3));   end else   begin     readln(a);     writeln('объём=',power(a,3));   end; x: =windowwidth div 2; y: =round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end. пример ввода: n 16 пример вывода: объём=4096 //2 var   x,p: integer; beginwrite('x: '); readln(x); write('p: '); readln(p); if not(odd(x)) then writeln('кратно 2'); if x mod 3=0 then writeln('кратно 3'); if x mod p=0 then writeln('кратно ',p); end. пример ввода: 18 6 пример вывода: кратно 2 кратно 3 кратно 6