Составьте программу в паскаль с помощью while. Стакан кипяточка (100 С)

program zz1;
var k,n,s,i,A:integer; // задаем переменные
begin
write(введите нижнюю границу температуры );
read(n);
write(введите на сколько остыла вода в 1-ый денек );
read(A);
i:=100-A; // убавляем температуру на заданное значение
k:=1;// считаем первый день
while igt;n do // организуем цикл, пока температура выше заданной
begin
i:=i-(i*15 div 100); // убавляем температуру на 15%
k:=k+1; // считаем деньки
end;
write(через ,k, дней температура станет меньше данной); // выводим ответ
end.