var a, b, c, d, f:

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 руб).
ВОПРОС: Необходимо СДЕЛАТЬ ТАК, Чтоб Программка ВЫДАЛА СДАЧУ! СПАСИБО