🚀 go-pugleaf

czy bylby ktos w stanie napisac ponizszy program w pascalu?
bardzo pilne - na zaliczenie :/ a ja sama nie dam rady :/






with Ada.Text_Io;
with Ada.Numerics.Elementary_Functions;
with Ada.Float_Text_Io;
use Ada.Float_Text_Io;
use Ada.Text_Io;
use Ada.Numerics.Elementary_Functions;

procedure Trojmian is

   A,B,C,W,Re,Im,x : Float;
begin

   Ada.Text_Io.Put ("obliczanie pierw. trzy-mianu ax^2+bx+c");New_Line;
   Ada.Text_Io.Put ("Podaj wspolczynnik a:"); Get(A);
   Ada.Text_Io.Put ("Podaj wspolczynnik b:"); Get(B);
   Ada.Text_Io.Put ("Podaj wspolczynnik c:"); Get(C);

   if(A=0.0) then
       if(B=0.0 and C=0.0) then
         put("Tozsame rownanie");
         elsif (B=0.0 and C /=0.0) then put("Sprzeczne, bo nie mozna dzielic
przez 0");
      else
         put("Rownanie liniowe x="); put(-c/b);
      end if;
   else
      W:=B*B-4.0*A*C;
      Re:=B/(2.0*A); Im:=Sqrt(abs(W))/(2.0*A);
         if W<0.0 then
            Ada.Text_Io.Put("Pierwiastki zespolone :");New_Line;
            Put("x1="); Put(-Re); Put("-i");Put(Im);Put("");
            Put("x2="); Put(-Re); Put("+i");Put(Im);New_Line;
         elsif W=0.0 then
            Ada.Text_Io.Put("Jeden podwojny pierwiastek:");New_Line;
            Put("x="); Put(-Re);
         else
            Ada.Text_Io.Put(" Pierwiastki rzeczywiste:");New_Line;
            Put("x1="); Put(-Re-Im);Put("");
            Put("x2="); Put(-Re+Im);
         end if;
   end if;
   delay 10.1;
end Trojmian;