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

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);