1/ viết chương trình nhập 3 số a,b,c vào từ bàn phím tìm số max 2/ viết chương trình giải pt ax+b=0(a khác 0)

Bài 1:

Program NhatNgu;
Uses crt;
Var a,b,c,max: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write('Nhap c: '); Readln(c);

        max:=a;
        If b>max then max:=b;
        If c>max then max:=c;
        Write('Max = ',max);
        Readln
End.

Bài 2:

Program NhatNgu;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If (a=0) then
                If (b=0) then
                        Write('Vo so nghiem')
                Else Write('Vo nghiem')
        Else Write('X = ',-b/a:0:2);
        Readln
End.

Program NhatNgu;
Uses crt;
Var a,b,c,max: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write('Nhap c: '); Readln(c);

        max:=a;
        If b>max then max:=b;
        If c>max then max:=c;
        Write('Max = ',max);
        Readln
End.

Bài 2:

Program NhatNgu;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If (a=0) then
                If (b=0) then
                        Write('Vo so nghiem')
                Else Write('Vo nghiem')
        Else Write('X = ',-b/a:0:2);
        Readln
End.

Nhớ cho mik CTLHN nha