trên này là a, b: (xét theo từng trường hợp, mình đã làm rất chi tiết rồi:>)

uses crt;

var a,b,c,D,x,x1,x2: real;

begin

clrscr;

  write('Nhap he so a='); readln(a);

  write('Nhap he so b='); readln(b); 

  write('Nhap he so c='); readln(c); 

  if a=0 then

    if b=0 then

      if c=0 then

        ưriteln('Phuong trinh co vo so nghiem') {a=0, b=0, c=0 }

      else writeln('Phuong trinh vo nghiem')    {a=0, b=0, c<>0}

    else writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)   {a=0, b<>0}

  else {a <> 0}

    begin

      d:=b*b-4*a*c;

      if D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2) {Delta =0}

      else

        if D<0 then Writeln('Phuong trinh vo nghiem')                      {Delta <0}

        else                                                               {Delta >0}

           begin

             x1:=(-b-sqrt(D))/(2*a);

             x2:=(-b+sqrt(D))/(2*a);

             writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);

           end;

     end;

readln {Truoc END. thi khong can dau ;}

end.

___________________________________________________________________________________________

phần c: (yêu cầu nhập vào, mỗi lần nhập kiểm tra nếu số sau lớn hơn thì gán cho số đấy lớn hơn)

uses crt;

var a, b, c, max: integer;

begin

clrscr;

         write('nhap a: '); readln(a);

           max:=a;

          write('nhap b: '); readln(b);

           if (b>max) then max:=b;

          write('nhap c: '); readln(c);

           if (c>max) then max:=c;

                      writeln('max=',max);

readln;

end.

_____________________________________________________________________________________________

phần d: (giải thích thì hơi dài dòng, bạn đọc tự hiểu nhé:<)

uses crt;

var n, i, min: integer;

         a: array[1..1000] of integer;

begin

clrscr;

         write('nhap so ptu: '); readln(n);

            for i:=1 to n do begin

                     write('a[',i,']='); readln(a[i]);

                                       end;

               min:=a[1];

              for i:=1 to n do 

                    if (a[i]<min) then min:=a[i]

                      else min:=min;

           writeln('min=',min);

readln;

end.