Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. Пакетов может быть неограниченное количество. Сколько гречи будет в последнем заполненном пакете? Помогите, пожалуйста.

// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.  //Пакетов может быть неограниченное количество. Сколько гречи будет в //последнем заполненном пакете? var x,a  : longword; begin   writeln ('Введите общую массу гречи, в граммах');   readln (x);   writeln ('Введите массу насыпаемой в пакет гречи, в граммах');   readln (a);   writeln ('полных пакетов будет ',(x div a));   if (x mod a)=0  then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')                   else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи'); end.