program cena;
uses crt;
var n1, n2, price: integer;
Begin
clrscr;
repeat
price:=0;
repeat
write('Введите номер зоны отправления');
readln(n1);
write('Введите номер зоны прибытия');
readln(n2);
price:=3*(abs(n2-n1)+1);
end;
writeln;
writeln(price);
End.