Усаши s рублей,он хочет купить шоколадки стоимостью n.cколько школадок может купить мальчик? составьте программу в паскале.

Var  a, b: integer;
begin  Writeln('Сколько у Cаши рублей?');  Read(a);  Writeln('Сколько стоит шоколадка?');  Read(b);  Write('Саша сможет купить ', a div b, ' шоколадки(-док, -дку).');end.