Напишите программку к задаче вообще не разумею! Заблаговременно спасибо!!! Поставлю ответ

На каком языке программирования?

Program program1;
var
a, b, c, n: integer;
begin
writeln('Введите цена шоколадки:');
write('рублей и копеек через пробел: ');
readln(a, c);
write('Введите количество рублей, которые имеются у Вас: ');
readln(b);
if (a lt; 0) or (c lt; 0) or (c gt; 99) then
writeln('введите корректные данные')
else
begin
n := trunc(b / (a + c/100));
writeln(n, ' шоколадок');
end;
end.

Var
  a,b,c:integer;
begin
  Write('Сколько стоит шоколадка (руб коп)? ');
  Read(a,c);
  Write('Сколько у вас рублей? ');
  Read(b);
  Write('Вы сможете покупать шоколадок: ',
    (100*b) div (100*a+c))
end.

Пример
Сколько стоит шоколадка (руб коп)? 35 50
Сколько у вас рублей? 140
Вы сможете покупать шоколадок: 3