Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, и коды некоторых городов выделены полужирным шрифтом) — Pascal(Паскаль)

Вычисление стоимости разговора по телефону. Введите исходные данные: Код города -> 812
Город Код Цена минуты, руб.
Владивосток 423 2,2
Москва 095 1,0
Мурманск 815 1,2
Самара 846 1,4
Длительность (целое количество минут)—> 3 Город: Владивосток Цена минуты: 2.20 руб. Стоимость разговора: 6.60 руб.

Program mejgorod;
uses crt;
type
   zvonok = record
      gorod:string[15];
      kod:integer;
      cenam:real;
   end;
 
 
var
 i,vr:integer;
 mz:array[1..15] of  zvonok;
 cn,itog:real;
 kodg:integer;
 
begin
 clrscr;
 mz[1].gorod:='Vladivostok'; mz[1].kod:=432; mz[1].cenam:=2.2;
 mz[2].gorod:='Moskva';      mz[2].kod:=095; mz[2].cenam:=1.0;
 mz[3].gorod:='Murmansk';    mz[3].kod:=815; mz[3].cenam:=1.2;
 mz[4].gorod:='Samara';      mz[4].kod:=846; mz[4].cenam:=1.4;
 writeln('Gorod':15,'Kod':5,'Cena min.':10);
 for i:=1 to 4 do begin write(mz[i].gorod:15,mz[i].kod:5,mz[i].cenam:10:1); writeln; end;
 writeln;
 write('Vvedite kod goroda: '); readln(kodg);
 writeln;
 case kodg of
    432:begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln; cn:=mz[1].cenam*vr;
    writeln('Gorod: ',mz[1].gorod:15); writeln('Cena minuti razgovora: ',mz[1].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end;
    95 :begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln;  cn:=mz[2].cenam*vr;
    writeln('Gorod: ',mz[2].gorod:15); writeln('Cena minuti razgovora: ',mz[2].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end;
    815:begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln; cn:=mz[3].cenam*vr;
    writeln('Gorod: ',mz[3].gorod:15); writeln('Cena minuti razgovora: ',mz[3].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end;
    815:begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln; cn:=mz[4].cenam*vr;
    writeln('Gorod: ',mz[4].gorod:15); writeln('Cena minuti razgovora: ',mz[4].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end
    else writeln('Kod error - zvonok nevozmogen');
 end;
 readkey;
end.
0