Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Один цвет по сути есть символ, а всё сообщение есть просто 3-буквенное слово. Из M = 3 различных символов можно сосатвить Q = MN<span> слов длиной N = 3, т. е. 3</span>3<span> = 27 слов.
Ответ: 27</span>
Доказательством ..... Ну может. Хотя.. Просто странно
Переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. Делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
Pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('Введите значения a, b, n:');
read(a, b, n);
total := n * (100 * a + b);
writeln('Цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.