корни из 2000 квадратных уровнения

[Wargan19]

Люди здраствуйте я студент и мне по програмированию дали задание за пару написать прогу в паскале что б она через масив могла вычеслить корни из 2000 квадратных уровнения (напримере можно ввести и 10) что б работало уважаймые форумчане помогите плиз до конца пары меньше часа если не покажу прогу он мне 2 за семестр влепит! Плиз помогите! Оч надо!

Program ***;
var a, b, c: real;
n:integer;
i:Longint;
D: real;
x1, x2: real;
begin
writeln('введите колтчество уравнений');
read(n);
For i:=1 to n d
    begin
    writeln ('введите коофициенты a, b, c');
    read (a, b, c);
    D :=b*b-4*a*c;
    x1 :=(-b+Sqrt(D))/(2*a);
    x2 :=(-b-Sqrt(D))/(2*a);
    writeln ('x1=', x1);
    writeln ('x2=',  x2);
    end;
end.

вот эту прогу я сделал на 2 надо что б хотя б 4 было иначе не видать мне степухи и учёбы в универе


пара кончаетса в 11:25 помогите

[Kingdom_Reborn]

да с такими знаниями какая "степуха" то тебе?

[Wargan19]

Я первый курс факультет сохраниние лётной пригодности ну на фига мне програмирование.