Помогите срочно!!!!!! Паскаль ABC

Ответ:

program CalcY;

var

 a, b, c, s, d, y: Double;

begin

 Write ('Введите A, B, C: ');

 ReadLn (a, b, c);

 if a <> 0 then begin

   s := (3 * c + b * b) / (b - c);

   d := s - a * b * c;

   y := 5 * b - d / 5 / a + s;

   WriteLn ('Y = ', y);

 end else

   WriteLn ('При вычислении произошло деление на ноль');

 ReadLn;

end.