Напишите программу вычисляющую цена междугороднего телефонного разговора. Юзер

Var k, m:Integer;

Begin

Write ('Введите код городка') ;read(k) ;

Write ('Введите длительность разговора') ;read(m) ;

If k=423 then

Write('Владивосток, цена звонка: ', 3.5*m);

If k=495 then

Write ('Москва, стоимость звонка ', 1.2*m);

If k=815 then

Write ('Мурманск, цена звонка ', 1.8*m);

If k=846 then

Write ('Самара, цена звонка ', 2.4*m);

End.