procedure TForm1.BitBtn1Click(Sender: TObject);     // Процедура нажаття на кнопку обчислити
var
  t1, t2, t3, t4, t5, t6 : extended;                   // Змінним присвоюється тип extended
  v1, v2, v3, v4, v5, v6 : extended;                 // Змінним присвоюється тип extended
  s1, s2, s3, s4, s5, s6 : extended;                      // Змінним присвоюється тип extended
begin
  WriteDano;                       // Виклик процедури виведення тексту в поле Розв'язання
  FindTheFirstLine;                                 // Процедура першого рядка знайти
  FindTheSecondLine;                                 // Процедура другого рядка знайти
  FindTheThirdLine;                              // Процедура третього рядка знайти
  FindTheFourthLine;                             // Процедура четвертого рядка знайти
  TheFirstLine;              // Виклик процедури першого рядка даних та переводу його в систему СІ
  TheSecondLine;           // Виклик процедури другого рядка даних та переводу його в систему СІ
  TheThirdLine;              // Виклик процедури третього рядка даних та переводу його в систему СІ
  TheFourthLine;        // Процедура четвертого рядка даних та переводу його в систему СІ
  TheFifthLine;          // Процедура п'ятого рядка даних та переводу його в систему СІ
  TheSixthLine;         // Процедура шостого рядка даних та переводу його в систему СІ
  ToCalculate;         // Процедура розв'язання

end;