program z5;
uses crt;
var
r, m, n, s:integer;
begin
writeln('введите населённый пункт');
readln(r);
writeln('введите кол-во билетов');
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.
вы выводите r перед тем как ввести его, то есть по умолчанию присваевается 0, а так всё правильно.
writeln('r=', r);
readln(r);