Всовхозе за день собрали d кг. винограда, из них a ц. оставили для школы, а остальное отправили в город в ящиках по 10 кг. в каждом. сколько ящиков винограда отправили в город?

1) Д-Ц
2) ( д-ц ) : 10
Вот и всё!!

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.

Вы извините, что здесь пишу, в графе для ответов. Хочу Вам просто и код, и скриншот прикрепить. Попробуйте этот код (комментарии условны, только для понимания). Три числа введите через пробел, в соответствии с логикой конечно же (смотрите комментарии для лучшего понимания):

# k - максимальное количество котлет на сковороде

# m - прожарка котлеты с одной стороны

# n - входное количество котлет

k,m,n = map(int, input().split())

time_am = 0

if (n <= k):

   time_am += 2*m

elif (n > k):

   while (n > k):

       time_am += 2*m

       n -= k

       if (n <= k):

           time_am += 2*m

           break

print(time_am)