<em>Решение:</em> Три варианта для обеда, три варианта для десерта. Возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3). <u>Ответ:</u> 9 P.S. - График предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой задачи. Поэтому предоставляю тебе альтернативный вариант: 1)Чертишь три прямоугольника 2)Отводишь от каждого из них по три стреолчки 3)На концах стрелочек чертишь еще три треугольника. В нижней строке должно получиться 9 прямоугольников. 4)Записываешь в каждый, по очереди, каждую из приведенных мной выше вариаций.
var arr: array[1..m] of integer; i, j, k,r: integer;
begin
for i := 1 to m do begin arr[i] := random(256); end; for i := 1 to m-1 do for j := 1 to m-i do if arr[j] > arr[j+1] then begin k := arr[j]; arr[j] := arr[j+1]; arr[j+1] := k end; write (arr[20]); readln end.