помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась.

Смоделировать работу автомата по продаже билетов. Пусть населенные пункты обозначены номерами 1, 2, 3, 4, 5, 6, 7, 8. Стоимость одного билета к конкретному пункту определена так:

22,k=1

35,k=2,3

50,k=4

72,k=5,6

97 во всех остальных случаях.

 Сколько будут стоить m билетов к некоторому населенному пункту? Для решения задачи используйте алгоритмическую конструкцию "выбор" (case).

program z5;

var

r, m, n, s:integer;

begin

writeln('r=', r);

readln(r);

writeln('m=', m);

readln(m);

case r of

1:n:=22;

2,3:n:=35;

4:n:=50;

5,6:n:=72;

else n:=97;

end;

s:=m*n;

writeln('s=', s);

end.

program z5; uses crt;varr, m, n, s:integer;beginwriteln('введите населённый пункт');readln(r);writeln('введите кол-во билетов');readln(m);case r of1:n:=22;2,3:n:=35;4:n:=50;5,6:n:=72;else n:=97;end;s:=m*n;writeln('s=', s);end.

вы выводите r перед тем как ввести его, то есть по умолчанию присваевается 0, а так всё правильно.

writeln('r=', r);

readln(r);