Как друзьям разделить 7 яблок поровну на 12 человек, не разрезая яблоки более чем на 4 часть? нарисуй

4 яблока порезать на 3 части - будет 12 одинаковых частей. плюс 3 яблока порезать на 4 части - ещё 12 одинаковых частей ) и каждому раздать по 1/3 и 1/4 яблока.

Program 1123; type data = record      g: 0..3000;       mes: 1..12;       day: 1..31;       end; var d1,d2: data; begin  writeln('введите дату через пробел(число, месяц, год)'); readln(d1.day,d1.mes,d1.g); d2: =d1; d2.day: =d1.day+1; with d2 do  case mes of  1,3,5,7,8,10: begin                if day=32 then begin mes: =mes+1; day: =1; end;               end; 4,6,9,11: begin              if day=31 then begin mes: =mes+1; day: =1; end;           end; 2: begin      if g mod 4=0 then begin                          if day=30 then begin mes: =mes+1; day: =1; end; end                  else begin                          if day=29 then begin mes: =mes+1; day: =1; end;                         end;   end; 12: begin      if day=32 then begin g: =g+1; mes: =1; day: =1; end;     end; end; writeln('следующий день ',d2.day,'.',d2.mes,'.',d2.g); end.

Const  mas : array [0..6,0..8] of string = (('иванов иван иванович         ', '1', '2', '3', '1', '5','3', '3', '2'),                                      ('петров петр петрович         ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('сидаров сидор сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                               ('алексеев алексей алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                      ('сергеев сергей сергеевич     ', '2', '2', '5', '5', '5','5', '2', '3'),                                      ('степанов степан степанович   ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('давыдов давид давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                               var sr: real; // средний     b: real; begin  writeln('');   writeln('|             фио             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');   writeln('');   for var i: =0 to 6 do begin    write('|'+mas[i,0]+'|');       sr: =0;     for var j: =1 to 8 do begin    write(' '+mas[i,j]+' |');     double.tryparse(mas[i,j],b); // строку в число    sr: =sr+b;     end;     sr: =sr/8;     write(sr: 5: 3);     write('|');     writeln;   end;   writeln('');   end.