Составить алгоритм на алгоритмическом языке для решения следующей задачи: Найти корни квадратного уравнения ax2 +bx+c = 0.

{общий член последовательности можно  задать формулой   Sn=((An-1)+(Bn-1))/(An-1)  где A- числитель,  В - знаменатель }

const n=10;
var A,B,C,i,k: integer;
begin
   A:=1;  B:=1;
{ вывод последовательности на экран  }
   for i:=2 to n do
      begin
          C:=A;     A:=A+B;       B:=C; 
          writeln(i,'  ->  ',A,'/',B);
      end;
{ подсчет k - го члена  }
    k:=20;  A:=1;  B:=1;
    for i:=2 to k do 
       begin   
          C:=A;       A:=A+B;       B:=C;
       end; 
    writeln(k,' - ый элемент = ',A,'/',B); 
 end.

Program test;
uses utils;
var
  n,i,sum,time:longint;
  flag:boolean;
begin
    readln(n);
    if n<2 then flag:=false;{Единица - не простое число}
    if n=2 then flag:=true;{2 - простое}
    if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
      for i:=1 to n do begin{проверяем что бы было только 2 делителя}
        sum:=sum+1;
      end;
      if sum=2 then flag:=true;
    end
    else flag:=false;
    if flag then writeln('Число простое') else writeln('Число НЕ простое');
    time:=milliseconds;
    writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.