Составьте программу, реализующую эпизод применения компьютера в книжном магазине. компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. если сдачи не требуется, печатает на экране «». если денег внесено больше, то печатает «возьмите сдачу» и указывает сумму сдачи. если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы. на паскале

var st,sum:integer;
begin
          writeln('Vvedite stoimostj knig');
          readln(st);
          writeln('Vvedite vnesennuju summu');
          readln(sum);
              if st=sum then writeln('Spasibo')
                             else if sum>st then writeln('Vozjmite sdachu: ',sum-st,' rublei')
                                                   else writeln('Doplatite: ',st-sum,' rublei')
end.