Напишите программку, вычисляющию стоимость 10-минутного междугороднего разговора в зависимости

var n:integer;

begin

 writeln('Астана (7172) - 5,4 тенге');

 writeln('Караганда (7212) - 4.5 тенге');

 writeln('Актау(7292) - 5 тенге');

 writeln('Актобе(7132) - 5,5 тенге');

 write('Введите код городка: '); readln(n);

 case n of

 7172: writeln('Цена 10-минутного разговора ',5.4*10:0:0,' тенге');

 7212: writeln('Цена 10-минутного разговора ',4.5*10:0:0 ,' тенге');

 7292: writeln('Цена 10-минутного разговора ',5*10,' тенге');

 7132: writeln('Цена 10-минутного разговора ',5.5*10:0:0,' тенге');

 end;

end.