Сравнить длины стержней при нагревании до 100 С и 150 С

program fecu;
{константы: коэффициенты температурного расширения}
const bfe = 12.2e-6; {железо}
      bcu = 16.5e-6; {медь}
{объявляем переменные (вещественного типа)}
var lfe0, lcu0, lfe, lcu, dt, dl: real;
{lfe0, lcu0, lfe, lcu - длины при 0 С и не при 0 С}
{dt, dl - разность температур относительно 0 С и разность длин}
begin
  lfe0 := 20; {длина железного стержня при 0 С}
  lcu0 := 21; {длина медного стержня при 0 С}
  dl := lcu0 - lfe0; {разность длин}
  writeln('При 0 С:'); {печатаем...}
  writeln('Длина железного стержня: ', lfe0:2:0, ' см');
  writeln('Длина медного стержня: ', lcu0:2:0, ' см');
  writeln('Разность длин: ', dl:5:3, ' см');
  dt := 100; {100 С}
  lfe := lfe0 * (1 + dt * bfe); {длина железного стержня при 100 С}
  lcu := lcu0 * (1 + dt * bcu); {длина медного стержня при 100 С}
  dl := lcu - lfe; {разность длин}
  writeln; {печать пустой строки для улучшения читаемости}
  writeln('При ', dt:3:0, ' С:'); {печатаем...}
  writeln('Длина железного стержня: ', lfe:7:5, ' см');
  writeln('Длина медного стержня: ', lcu:7:5, ' см');
  writeln('Разность длин: ', dl:7:5, ' см');
  dt := 150; {150 С - аналогично 100 С}
  lfe := lfe0 * (1 + dt * bfe);
  lcu := lcu0 * (1 + dt * bcu);
  dl := lcu - lfe;
  writeln;
  writeln('При ', dt:3:0, ' С:');
  writeln('Длина железного стержня: ', lfe:7:5, ' см');
  writeln('Длина медного стержня: ', lcu:7:5, ' см');
  writeln('Разность длин: ', dl:7:5, ' см');
  readln
end.