2.30

//2.30

Begin
  var a, d, b, c, y, x:real;
  var i:integer;

  write('Vvedite a: ');
  readln(a);

  write('Vvedite d: ');
  readln(d);

  write('Vvedite b: ');
  readln(b);

  write('Vvedite c: ');
  readln(c);

  for i := 1 to 8 do
  begin
    write('Vvedite x[', i, ']: ');
    readln(x);
    if x < (a-1) then
      y := a/x + d*x*x - c
    else
      y := (a+b)/(x-1);
    writeln('y[',i,']=',y:3:2);6
  end;
End.