В киоске продаётся газета стоимостью 250 руб и журнал стоимостью 900 руб. Составить программу которая спрашивает р желании покупателя (купить журнал или газету), принимает деньги и выдаёт на экран сдачу

Var

a, b, r, e:integer;

begin

a:=250;

b:=900;

writeln ('Что вы желаете купить:');

writeln ('1. Газету');

writeln ('2. Журнал');

writeln ('3. Газету и журнал');

readln (r);

if r=1 then e:=a

else

if r=2 then e:=b

else

e:=a+b;

writeln ('Стоимость ', e,' р');

writeln ('Введите деньги');

readln (r);

if r>e then

writeln ('Ваша сдача ', r-e,'р')

else

writeln ('Денег не хватает');

end.