На фармацевтичній фірмі було виготовлено а таблеток від кашлю, які автомат розфасував порівну в b флаконів. Розробіть алгоритм і програму визначення кількості таблеток, розфасованих у кожний флакон і кількості таблеток, що залишилися не розфасованими.

var a,b,c,d:integer;beginwrite('a = ');readln(a);write('b = ');readln(b);c:=a div b;d:=a mod b;writeln('Количество таблеток в каждом флаконе: ',c);writeln('Осталось таблеток: ',d);end.Пример:a = 1000b = 30Количество таблеток в каждом флаконе: 33Осталось таблеток: 10