Составить блок схему алгоритма, как вы собираетесь в школу.

Using System;
namespace Test
{   
public class Program
{       
public static void Main(string[] args)       
{           
double a,b,c,D,x1,x2;           
a=double.Parse(Console.ReadLine());           
b=double.Parse(Console.ReadLine());           
c=double.Parse(Console.ReadLine());           
D=b*b-4*a*c;           
if(D>=0){           
x1=(-b+Math.Sqrt(D))/(2*a);           
x2=(-b-Math.Sqrt(D))/(2*a);           
Console.WriteLine("x1="+x1+"; x2="+x2);           
}           
 else Console.WriteLine("нет корней");        }   
}
}

PascalABC.NET 3.2, сборка 1488 от 21.06.2017
Внимание! Если программа не работает, обновите версию!

function Horner(x:real;a:array of real):real;
begin
  Result:=x*a.Last;
  for var i:=a.Length-2 downto 1 do
    Result:=x*(a[i]+Result);
  Result+=a.First
end;

begin
  var n:=ReadInteger('Степень полинома:');
  var x:=ReadReal('x=');
  var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
  Writeln('Значение полинома: ',Horner(x,a))
end.

Пример
Степень полинома: 9
x= -4.2
Коэффициенты, начиная со свободного члена: 4 0 0 0 0 0 3 -2 0 3
Значение полинома: -1157435.18966682