var a, b, c, d, f: real;
begin
a:=40;
b:=25;
readln(c);
a:=a-a*25/100;
d:=c/a;
writeln('Количество тетрадей');
writeln (int (d));
end.


readln(c) = 1000
Первоначальная цена 40 руб, затем скидка = 25%, новая цена 30 рублей.
Ответ: на 1000 рублей можно купить 33 тетради (по 30 руб).
ВОПРОС: НУЖНО СДЕЛАТЬ ТАК, ЧТОБЫ ПРОГРАММА ВЫДАЛА СДАЧУ! СПАСИБО