В киоске продаётся газета ценою 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 rgt;e then
writeln('Ваша сдача ',r-e,'р')
else
writeln('Средств не хватает');
end.