помогите пожалуйста. #10

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.