1.Просит ввести цену книги
2.Просит ввести сумму, которую заплатил покупатель
3.Высчитывает выдаваемую сумму, если такая есть.
4. Если сумма правильная, то выдает "Спасибо".
5.Если сумму меньше, тогда выдаёт сообщение о запросе недостающих денег.

Var z,s,r:real;
Begin
    write('Цена книги: ');readln(z);
    write('Сумма,которую заплатил покупатель: ');readln(s);
    While z-s<>0 do
    Begin
      writeln('Недостоющее кол-во денег = ',z-s);
      write('Введите недостающее кол-во денег: ');readln(r);
      s:=s+r;
    End;
    writeln('Спасибо');
    readln;
End.