Составить программу с ветвящейся структурой, используя условный оператор if для квадратного уравнения вида ax2+bx+c=0

Var a,b,c,d:real;
begin
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then writeln('Net kornei');
if d=0 then writeln('x=',-b/(2*a));
if d>0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2=',(-b+sqrt(d))/(2*a));
end.

Var a,b,c,x,x1,x2:real;
begin
writeln('');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('корней нет');
if d=0 then x:=-b/2/a;
if d>0 then;
begin;
x1=:(-b+sqrt(d))/2/a;
x2:=(-2-sqrt(d))/2/a;
writeln('x1=',x1:10:2);
writeln('x2=',x2:10:2);
end;
end

#include <iostream>

#include <algorithm>

using namespace std;

string func(int n, int k){

   string s;

   while(n > 0){

       if(n % k < 10) s += (n % k) + '0';

       else s += (n % k - 10) + 'A';

       n /= k;

   }

   reverse(s.begin(), s.end());

   return s;

}

int main() {

   int N;

   cin >> N;

   int a[3] = {2, 8, 16};

   for(auto &i : a)

       cout << "Number " << N << " in the notation with a base " << i << " equals to " << func(N, i) << "\n";

}

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.