Задачка составить программку для определения цены разговора по межгороду по данным

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

Задать свой вопрос
1 ответ
Program gg;
var
a,b,c,d:integer;
begin
b:=495;
c:=812;
d:=861;
writeln('Введите код страны');
read(a);
if a=b then
writeln('Москва. Стоимость разговора 1.2');
if a=c then
writeln('Петербург. Стоимость разговора 2.12');
if a=d then
writeln('Краснодар. Стоимость разговора 5.12');
end.

Если желаешь b c d можешь заменить числами, мне просто удобнее через массивы.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт