Составить программу, решающую следующую : вы продавец, и у вас имеются гири весом 1, 2, 5 кг. наберите минимальное количество гирь для взвешивания n кг.язык программирования-паскаль

Var N, a, b: integer;
begin
     readln(N);
     a := N div 5;
     N := N mod 5;
     b := N div 2;
     WriteLn(a, 'x5, ', b, 'x2, ', N mod 2, 'x1');
end.

Вот так, делением можно)