var a,b,c:integer;
begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.
индекс равен 4 (на четвертом месте находится данное число -3)
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.