Написать программу, которая по заданному району города (1 – Ленинский, 2 – Дзержинский, 3 – Свердловский, 4 – Кировский, 5 – Индустриальный) выводит значение средней стоимости квадратного метра жилья.- Pascal(Паскаль)

uses crt;

var
  n: byte;

begin
  clrscr;
  writeln('Введите код района');
  readln(n);
  case n of
    1:
      writeln('1 – Ленинский');
    writeln('Цена 10000 руб.');
    2:
      writeln('2 – Дзержинский');
    writeln('Цена 20000 руб.');
    3:
      writeln('3 – Свердловский');
    writeln('Цена 30000 руб.');
    4:
      writeln('4 – Кировский');
    writeln('Цена 40000 руб.');
    5:
      writeln('5 – Индустриальный');
    writeln('Цена 50000 руб.');

    else writeln('Нет такого района')

    end;

    end.