Технический форум - Помогите отладить программу

И правильно ругается! В частности, потому что операции div и mod - сугубо целочисленные, и конструкции вида (n mod 0.5) абсолютно неприемлемы.
Кроме того, совершенно неправильно построен алгоритм решения задачи. Итак, имеем:

10*r1 + 5*r2 + 0.5*r3 = n
r1 + r2 + r3 = m

Чтобы не возиться с дробями, умножим обе части первого уравнения на 2:

20*r1 + 10*r2 + r3 = 2*n
r1 + r2 + r3 = m

Итак, имеем два уравнения с тремя неизвестными. Но есть еще условия - уравнения диофантовы, то есть система должна иметь решение в целых числах.
Строить программу можно по-разному, я предпочел метод прямого перебора.
1. Задаем числа m и n.
2. Определяем максимально возможное r1 (обозначено r1max), которое есть
2*n div 20
при этом минимальное r1 есть 0.
3. Строим цикл по r1 от максимума до минимума, при этом для каждого r1 определяем максимальное r2 (r2max).
4. Строим цикл по r2 тоже от максимального до минимального, в котором по r1 и r2 определяем два значения r3 из первого и второго уравнений, и в случае их совпадения выводим результат на экран.
5. Если для данных m и n не удается подобрать ни одной подходящей комбинации, выводим на экран сообщение о том, что решения нет. Для этого в программе предусмотрен булевский флажок b.

Формат переменных взят знаковым целым (Integer), потому что промежуточные результаты могут быть и отрицательными. Да и монахов может быть много, а уж пирогов - тем более.

Итого:

Код:

Program Monahi;

var

 n, m, r1, r2, r1max, r2max, r3_1, r3_2 : Integer;

 b : boolean;

begin

 write('Vvedite kol-vo pirogov = ');

 readln(n);

 write('Vvedite kol-vo monahov = ');

 readln(m);

 b:=true;

 r1max:=2*n div 20;

 for r1:=r1max downto 0 do

  begin

   r2max:=(2*n-r1*20) div 10;

   for r2:=r2max downto 0 do

    begin

     r3_1:=2*n-r1*20-r2*10;

     r3_2:=m-r1-r2;

     If r3_1=r3_2 then

      begin

       b:=false;

       writeln('r1= ',r1);

       writeln('r2= ',r2);

       writeln('r3= ',r3_1);

       writeln;

      end;

    end;

  end;

 if b then writeln('Net resheniya!');

 readln;

end.