2
10240
3
1,25
256
Надеюсь помогла.
While a>b do
a:=c+1;
если правильно понял ваше задание то это именно так
If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
Набираешь полный флакон на 5 капель, переливаешь его в 7. Затем снова набираешь на 5 капель и опять сливаешь капли в 7. но на этот раз там уже было 5 капель. значит остается 3 капли в первом флаконе