Пожалуйста, не выводит номер маршрута

[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.

[Аватар]

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

[Temka3791]

Спасибо большое����

[Temka3791]

Спасибо большое)))))