Я же написала, что алгоритм линейный, зачем вы циклы "за уши" притянули, еще и синтаксически неправильно (да и логически тоже)?

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.