Написать программу, которая выдает таблицу изменения концентрации спирта - Free Pascal

Формулировка задачи:

5. В химической лаборатории стояла литровая бутылка чистого спирта концентрации 96 процентов. Каждую неделю лаборантка Терпилова отливала из бутылки треть для протирки клавиатур компьютеров. Так она потом объясняла, куда делся спирт. Недостающую часть лаборантка заливала водой. Написать программу, которая выдает таблицу изменения концентрации спирта. Узнать, сколько же раз лаборантка отливала из бутылки, если концентрация стала уже ниже пяти процентов.

Решение задачи: «Написать программу, которая выдает таблицу изменения концентрации спирта»

Листинг программы

var
  v1,v2,c:real;
  n:integer;
begin
  write('объём бутылки:');
  readln(v1);
  c:=96;v2:=v1-v1/3;
  writeln('N':5,'C':10);
  repeat
    n:=n+1;
    c:=c*v2/v1;
    writeln(n:5,c:10:2);
  until c<=5;
  readln;
end.

Объяснение кода листинга программы

Объявление переменных: v1, v2, c (объём бутылки, время и концентрация спирта соответственно) типа real, а также переменной n типа integer для подсчёта количества итераций.
Ввод объёма бутылки с помощью функции readln() и сохранение значения в переменной v1.
Инициализация концентрации спирта в свежем напитке c=96% и вычисление времени, которое займёт снижение концентрации до 5% от изначальной (v2=v1-v1/3).
Вывод на экран шапки таблицы: N C.
Начало цикла while, который будет выполняться до тех пор, пока значение концентрации спирта в напитке не станет меньше или равным 5%.
Внутри цикла увеличивается значение переменной n на 1.
Вычисляется новое значение концентрации спирта как произведение старого значения на v2/v1.
С помощью функции writeln() выводится на экран текущее значение n и c, каждая переменная занимает 10 позиций на экране.
Повторять шаги 6-8 до выполнения условия цикла while.
В конце программы запрашивается ввод любого символа с помощью функции readln() для предотвращения закрытия программы без ввода данных.