uses crt;
var a,b:integer;
begin
write('Здравствуйте введите стоимость книг: ');
readln(a);
write('Введите сумму денег: ');
readln(b);
за покупку!');
if a>b then writeln('Сумма денег меньше, чем стоимость книг. Вам не хватает ',a-b,' рублей.');
за покупку! Ваша сдача: ', b-a, ' рублей.');
end.
