Рещение задачки , срачно

[GeRZog]

ЛЮДИ ПЛИЗ ПОМОГИТЕ С ЗАДАЧЕЙ , ПО Идеи Простая , но я все равно решить не могу!!!!!!!!!!!!!!
В киоске продается газета стоимостью a рублей и журнал стоимостью b рублей. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу.

 

[BurcevD]

Var a,b:Integer; //Стоимость газеты и журнала
Sum:Integer; //Введенная сумма
JG:String; //Выбор журнала или газеты
Begin
Write('Газета стоит:'); Read(a);
Write('Журнал стоит:'); Read(B);
Repeat
Write('Вы хотите купить (J/G):'); Readln(JG);
Until (JG='J')or(JG='G');
Write('Внесенная сумма:'); Read(Sum);
if JG='J' Then
Begin
If (Sum<b) then Writeln('Денег не хватает на ппокупку журнала') else
If (Sum=B) then Writeln('Без сдачи') else
Writeln('Сдача: ',Sum-B);
End else Begin
If (Sum<a) then Writeln('Денег не хватает на ппокупку газеты') else
If (Sum=a) then Writeln('Без сдачи') else
Writeln('Сдача: ',Sum-a);
End;
End.

 

[etc]

срачно

мда...