câu 3:

Program TIM_SO_LON_NHAT;
Uses crt; 
Var a,b,c,d,max: real; 
BEGIN Clrscr; 
     Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); 
     Write('Nhap a='); 
     Readln(a); 
     Write('Nhap b='); 
     Readln(b); 
     Write('Nhap c='); 
     Readln(c); 
     Write('Nhap d='); 
     Readln(d); 
     max:=a; 
          If b>max then max:=b; 
          If c>max then max:=c; 
          if d>max then max:=d; 
     Writeln('So lon nhat la: ',max: 4: 2); 
Readln; 
END.

Bài 1:

Program FNG;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If (a=b) or (b=c) or (c=a) then Write('Tam giac can')
        Else Write('Khong phai tam giac can');
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var a,b,c,d,min: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c, d: '); Readln(a,b,c,d);
        min:=a;
        If b<min then min:=b;
        If c<min then min:=c;
        If d<min then min:=d;
        Write('Min = ',min);
        Readln
End.

Bài 3:

Program FNG;
Uses crt;
Var a,b,c,d,max: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c, d: '); Readln(a,b,c,d);
        min:=a;
        If b<max then max:=b;
        If c<max then max:=c;
        If d<max then max:=d;
        Write('Max = ',max);
        Readln
End.