Решить характеристическое уравнение системы. - Turbo Pascal

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

интересует лишь то, как будет выглядеть программа на паскале: Составить программу определения величины ∆1 (∆2) на языке программирования высокого уровня

Сам с паскалем впервые столкнулся и синтаксиса не знаю, прошу помощи.

Решение задачи: «Решить характеристическое уравнение системы.»

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

var a0, a1, a2, a3, a4, d1, d2: Real;
begin
  Write('a0 a1 a2 a3 a4: '); ReadLn(a0,a1,a2,a3,a4);
  d1:=a1*a2-a0*a3;
  d2:=a1*a2*a3-a0*a3*a3-a1*a1*a4;
  WriteLn('d1 = ',d1,', d2 = ',d2,', система устойчива: ',
    (a1>0) and (a1>0) and (a3>0) and (a4>0) and (d1>0) and (d2>0));
end.

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

Объявляются переменные a0, a1, a2, a3, a4, d1, d2 типа Real.
Выводится приглашение пользователю ввести значения переменных a0, a1, a2, a3, a4.
Значения, введенные пользователем, присваиваются переменным a0, a1, a2, a3, a4 соответственно.
Вычисляется значение переменной d1 как произведение a1 и a2, минус произведение a0 и a3.
Вычисляется значение переменной d2 как произведение a1 и a2 и произведение a3 и a3, минус произведение a0 и a1 и произведение a0 и a4.
Выводится сообщение о стабильности системы, используя булевые значения условий: a1 > 0, a1 > 0, a3 > 0, a4 > 0, d1 > 0, d2 > 0.