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

Question

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

---

Answer 1

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.

---

---

Comments

а там еще про спасибо