Получить таблицу процентов отходов от времени хранения - Pascal

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

Следует внимательно прочесть и записать задание своего варианта, выполнить: 1) математическую постановку задачи, а именно - ввести обозначения переменных; - классифицировать переменные; - записать расчетные формулы в порядке их выполнения; 2) разработать блок-схему алгоритма; 3) записать программу на алгоритмическом языке; 4) выполнить программу на компьютере; 5) проанализировать результаты. Задача. При хранении сырья процент отходов (испортившегося сырья) изменяется со временем: p =c+b*t+ a* t^2 , где t – время в сутках; a, b, c – заданы . Получить таблицу процентов отходов от времени хранения при равномерном изменении времени от 0 до 20 суток через сутки.

Решение задачи: «Получить таблицу процентов отходов от времени хранения»

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

const hl = '+-----+------------+';
 
var a, b, c, p: Real;
    t: integer;
 
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  writeln(hl);
  writeln('|Сутки|   Отходы   |');
  writeln(hl);
  for t := 0 to 20 do
    begin
      p := c + b * t + a * t * t;
      writeln('|', t:4, ' |', p:11:6, ' |')
    end;
  write(hl);
  readln
end.

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

Переменные a, b и c объявлены и не инициализированы.
Строка hl объявлена и не инициализирована.
Переменная t инициализирована значением 0.
Строка write('a = ') записывает в вывод значение переменной a.
Строка readln(a) считывает значение переменной a в качестве ввода.
Строка write('b = ') записывает в вывод значение переменной b.
Строка readln(b) считывает значение переменной b в качестве ввода.
Строка write('c = ') записывает в вывод значение переменной c.
Строка readln(c) считывает значение переменной c в качестве ввода.
Строка writeln(hl); выводит строку-заголовок.
Строка writeln('|Сутки| Отходы |') выводит строку-заголовок.
Строка for t := 0 to 20 do запускает цикл.
Внутри цикла переменная p инициализируется как сумма c, b и a умноженных на t.
Строка writeln('|', t:4, ' |', p:11:6, ' |') выводит значение t и p в формате, где t — четыре знака, а p — шесть знаков после запятой.
Цикл продолжается до тех пор, пока t не станет равным 20.
Строка write(hl); выводит строку-подвал.
Строка readln(); считывает ввод пользователя.