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

Спасибо!!!

vara,b,r,e:integer;begina:=250;b:=900;writeln('Что вы желаете купить:');writeln('1. Газету');writeln('2. Журнал');writeln('3. Газету и журнал');readln(r);if r=1 then e:=aelseif r=2 then e:=belsee:=a+b;writeln('Стоимость ',e,' р');writeln('Введите деньги');readln(r);if r>e thenwriteln('Ваша сдача ',r-e,'р')elsewriteln('Денег не хватает');end.