Równanie Kwadratowe - Pascal

Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad1_rownanie_kwadratowe.pas

@@ -0,0 +1,44 @@
+program rownanie_kwadratowe;
+var
+   a,b,c   : Double;
+   x,x1,x2 : Double;
+   Delta   : Double;
+begin
+   write('Podaj a: ');
+   ReadLn(a);
+   write('Podaj b: ');
+   ReadLn(b);
+   write('Podaj c: ');
+   ReadLn(c);
+
+
+   
+   if a=0 then
+   begin
+      x:=c/b;