Решите, пожалуйста, в паскале)

Question

Решите, пожалуйста, в паскале)

---

Answer 1

Var a,b:real;
begin
writeln ('Введите стоимость книг');
readln (a);
writeln ('Введите сумму денег');
readln (b);
if (a=b) then writeln ('Спасибо');
if (a>b) then writeln ('Доплатите ',a-b);
if (aend.