Вот программа на Pascal, которая определяет, можно ли от шоколадки размером n x m долек отломить k долек:

program ChocolateBreaking;
var
n, m, k: integer;
begin
writeln('Введите размеры шоколадки n x m и количество отламываемых долек k:');
readln(n, m, k);
if (k mod n = 0) and (k <= n * m) then
writeln('Можно отломить ', k, ' долек от шоколадки размером ', n, ' x ', m)
else if (k mod m = 0) and (k <= n * m) then
writeln('Можно отломить ', k, ' долек от шоколадки размером ', n, ' x ', m)
else
writeln('Нельзя отломить ', k, ' долек от шоколадки размером ', n, ' x ', m);
end.

Программа сначала запрашивает у пользователя размеры шоколадки n и m, а также количество отламываемых долек k. Затем она проверяет, можно ли отломить k долек от шоколадки по условиям задачи. Если это возможно, программа выводит сообщение о возможности отломить k долек, иначе выводит сообщение о невозможности отломить k долек.