Работница теплицы готовит раствор для подкормки растений. в ее распоряжении имеются стеклянные банки 1, 2, и 3 литра. какое наименьшее количество банок воды потребуется для подготовки n(n< 100) литров раствора? пример: входные данные = 10 выходные данные= 3 3 3 1

var
  x, y: byte;

begin
  readln(x);
  repeat
    if (x div 3 > 0) then
    begin
      write(3:2);
      x -= 3;
    end
    else
    if (x div 2 > 0) then
    begin
      write(2:2);
      x -= 2;
    end
    else
    if (x > 0) then
    begin
      write(1:2);
      x -= 1;
    end;
  until (x = 0);
end.