не могу найти проблему

[Temka3791]

Для определения рентабельности автобусного маршрута вычисляют разницу между сданными деньгами за проезд и затратами на обеспечение маршрута. Составьте программу определения самого рентабельного из трех маршрутов в городе.

Program A; 
var M1,M2,M3,Z1,Z2,Z3:real; 
R1, R2, R3,max,iNum:real; 


begin 

  Writeln('Введите количество денег, полученных на 1-ом, 2-ом, 3-м маршрутах'); 
  Readln(M1,M2,M3); 
  Writeln('Введите цену затрат на 1-ом,2-ом, 3-м маршрутах '); 
  Readln(Z1,Z2,Z3); 
  R1:=M1-Z1; 
  R2:=M2-Z2; 
  R3:=M3-Z3; 
  if R1>R2 then 
    max:=R1 
  else 
   max:=R2; 

  R2:=max; 

  if
    R3>max 
  then 
   max:=R3; 

  R3:=max; 
  R1:=1; 
  R2:=2; 
  R3:=3; 
  writeln('Самый рентабельный - ',max, ' маршрутый номер ') 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Cuprum5]

Max выдаст сумму максимальной прибыли, а не номер маршрута: 1, 2 или 3 - как у Вас Заложено в программе. Я нашел ошибку - сколько дадите денег за нее?

[Serge_Bliznykov]

Temka3791, Вы с разделом не ошиблись? Фриланс - это заказ работы за деньги (платной помощи). Может перенести тему в раздел Паскаль ?

[Аватар]

Там уже есть
http://www.programmersforum.ru/showthread.php?t=317893