Срочно помогите написать программу в Паскале плз, Условие задачи внутри Опции

[Lapulya94]

стоимость проезда на пригородном поезде составляет 3 рубля за одну зону.нумерация зон ведется начиная с городского вокзала(1 зона).
составить программу которая бы определяла стоимость проезда в один конец между станциями расположенными в разных зонах.
номер зоны вкоторой находится станция отправления и той зоны в которой рамположена конечная станция вводятся в компьютер с клавиатуры .
при составлении программы следует учесть что пассажир может отправляться как из пригорода в город так и наоборот.

Пипец ничего не понимаю (IMG:style_emoticons/default/sad.gif) Помогите пожалуйста

[Julia]

Алгоритм линейный. Формула для расчета:
Стоимость проезда = 3*(abs(n2-n1)+1), где n2 - зона прибытия, n1 - зона отправления.

[Lapulya94]

Алгоритм линейный. Формула для расчета:
Стоимость проезда = 3*(abs(n2-n1)+1), где n2 - зона прибытия, n1 - зона отправления.

а программа то какая будет?

[tig81]

а у вас какая получилась?

[Lapulya94]

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.

[Julia]

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

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.