10.Выберите правильный ответ: Вставка символа, которого нет на клавиатуре, производится командой а) Формат→Символы, б) Правка→Вставить, в) Вставка→Символа, г) Вставка → Специальные символы

Количество всевозможных программ 2^4 = 16
Перечислим их:
1111 =>  4+4+4+4 = 16
1112 =>  4+4+4-3 = 9
1121 =>  4+4-3+4 = 9
1122 =>  4+4-3-3 = 2
1211 =>  4-3+4+4 = 9
1212 =>  4-3+4-3 = 2
1221 =>  4-3-3+4 = 2
1222 =>  4-3-3-3 = -5
2111 => -3+4+4+4 = 9
2112 => -3+4+4-3 = 2
2121 => -3+4-3+4 = 2
2122 => -3+4-3-3 = -5
2211 => -3-3+4+4 = 2
2212 => -3-3+4-3 = -5
2221 => -3-3-3+4 = -5
2222 => -3-3-3-3 = -12

Перечислим полученные результаты с разными числами(одинаковые выводить не будем)
16
9
2
-5
-12

ответ: Таких чисел будет 5(пять)

uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.