Программа в Паскаль.1)В лагерь отъезжают N детей.Как узнать сколько автобусов потребуется для перевозки детей,если в один автобус можно посадить 40 человек?2)Как узнать сколько парт нужно для N учеников,если за одной партой сидят двое?Будет ли свободное место?3)Дана сумма денег S и стоимость одного мороженного М.Как узнать сколько мороженых можно купить на эти деньги?Будет ли сдача?Если будет,то Как узнать сколько?

1 задача.
var a,b,c:integer;begina:=40;writeln('Введите кол-во детей: ');read(b);c:=b div a;writeln('Потребуется ',c ,' автобуса');end.

2 задача.
var a,b,c,d:integer;beginwrite('Введите кол-во учеников: ');read(a);c:=a div 2; writeln('Нужно ',c,' парт на ',a,' учеников');d:= a mod 2;if d=0 then beginendelsewriteln('Останется ',d,' место');end.

3 задача.
var a,b,c,d:integer;beginwriteln('Введите сумму денег: ');read(a);writeln('Введите стоимость одного мороженного: ');read(b);c:=a div b;writeln('Вы можете купить ',c ,' мороженых ');d:=a mod b;writeln('У вас останется ',d,' денег');end.