,нужно 3 политический партий Украины (начиная с 2016 года) и дальше по таблице

Program Praktik8;
Uses crt;
Var a, b, c, d, x1, x2: real;
    G: text;
Begin
    Assign (G,'kvur.txt');
    Reset(G);
    Readln (G,a,b,c);
    Close(G);
    d:=sqr(b)-4*a*c;
        if d > 0 then
        begin
             x1:=(-b+sqrt(d))/(2*a);
             x2:=(-b-sqrt(d))/(2*a);
             Assign (G,'korni.txt ');
             Rewrite (G);
             Writeln (G,'2 корня ', x1:7:2, x2:7:2);
             Close(G);
             Writeln ('2 корня ', x1:7:2, x2:7:2)
        end
else if d = 0 then
             begin
               x1:=-b/(2*a);
               Assign (G,'korni.txt ');
               Rewrite (G);
               Writeln (G,'1 корень ', x1:7:2);
               Close(G);
               Writeln ('1 корень ', x1:7:2)
             end
               else
                 begin
                    Assign (G,'korni.txt ');
                    Rewrite (G);
                    Writeln (G,‘нет корней');
                    Close(G);
                    Write (‘нет корней')
                 end;
    Readkey
End.

Преимущества
Магнитные носители  Информационная ёмкость измеряется в гигабайтах. Компактны (что важно при использовании)
Оптические носители  Благодаря высокой плотности записи, имеют большой обьём (ёмкость оптического диска от 190 Мб до 700 Мб).Надёжность носителей. Пригодны для многократной записи., перезаписи, чтения.

Недостатки
Магнитные носители Чувствительность к магнитным полям ,перепадам температур, пыли. Маленькая ёмкость в сравнении с более современными устройствами.
Оптические носители  CD-RW. Большой недостаток оптических носителей в том, что информация на них записывается сессиями. То есть в программе для записи дисков вы указываете, какие файлы нужно перенести на носитель, затем запускаете сессию записи. Это значит, что редактировать файл не получится.