program prog_book;
var
s,sum,sdaca: integer;begin
writeln (сколько стоит книга);
read (s);
writeln (сколько денег платите);
read (sum);
if sum=s then writeln (сдачи не надо)
else
begin
sdaca:=sum-s;
writeln (сдача=,sdaca);
end;
end.