program oken;

uses crt;

var a,b:longint;

      x:real;

begin

clrscr;

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

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

if a>b then writeln(a,' lon hon ',b)

else if b>a then writeln(b,' lon hon ',a)

     else writeln('hai so bang nhau');

writeln('giai phuong trinh: ',a,'x+',b'= 0');

x:=-b/a;

writeln('x: ',x:0:3);

readln;

end.

Bài 1:

Program FNG;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If a>b then Write(a,' lon hon ',b)
        Else If b>a then Write(b,' lon hon ',a);
        Readln
End.

Bài 2:

Program FNG;
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.