Задача составить программу для определения стоимости разговора по межгороду по заданным данным (назавания соответствуещего города должны выводится по коду): код города Москва-495 код города С. Петербург_812 код города Краснодар 861 стоимость разговора Москва=1.2 стоимость разговора С Петербург=2.12 стоимость разговора Краснодар 5.12 назавания соответстуещего города должны выводится по коду:

program gg;vara,b,c,d:integer;beginb:=495;c:=812;d:=861;writeln('Введите код страны');read(a);if a=b thenwriteln('Москва. Стоимость разговора 1.2');if a=c thenwriteln('Петербург. Стоимость разговора 2.12');if a=d thenwriteln('Краснодар. Стоимость разговора 5.12');end.Если хочешь b c d можешь заменить числами, мне просто удобнее через массивы.