Start

DANE:
write (Wprowadź wartości: a, b, c)

read(a, b, c)

if (a == 0) then
begin
 write("a musi byc różne od zera!")
 go to DANE
end

Delta = b*b + 4*a*c

if(Delta > 0) then
begin

  x1 = (-b + sqrt(Delta))/(2*a)
  x2 = (-b - sqrt(Delta))/(2*a)  
  
  write("Dwa pierwiastki rzeczywiste:
         "x1 =",x1
		 "x2 =",x2
  go to KONIEC
end
		 
if (Delta ==0) then
begin

   x1 = -b/(2*a)

   write("Pierwiastek podwójny:
         "x1 = x2 =",x1
   go to KONIEC		 
end 	 

if( Delta < 0) then
begin

  Re = -b/(2*a)
  Im = sqrt(-Delta)/(2*a)

  write("Dwa pierwiastki zespolone:
        "x1 =",Re,"+i*",Im,
        "x2 =",Re,"-i*",Im	
  go to Koniec
end

KONIEC:
stop