паскаль. Пересчитать значения из одной валюты в другую (помочь купить автомобиль за $)

[oksi-xd]

помогите пожалуйста составить программу

«Новый русский» решил поменять свой отечественный автомобиль на иномарку. Старый автомобиль он может продать за N рублей, в банке у него имеются накоп-ления в K рублей. Какую из машин он сможет купить: Toyota стоимостью X $, Mercedes - Y $, Fiat - Z $? Известно, что обменный курс на данный момент со-ставляет R рублей за 1 $.

[ZX Spectrum-128]

Bakzy:=(n+k)/r;
If bakzy=x then // mers
... // и так далее