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

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.