1.uses crt;

var a,b,c:integer;

begin

clrscr;

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

write('b=');readln(b);

write('c=');readln(c);

if (a=c) or (b=c) or (a=b) then

writeln('tam giac abc la tam giac can')

else writeln('tam giac abc ko phai la tam giac can');

readln;

end.

2.3.uses crt;

var a,b,c,d,max,min:integer;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

write('d=');readln(d);

begin

max:=a;

if max<b then

b:=max;

if max<c then

c:=max;

if max<d then

d:=max;

end;

writeln('max=',max);

begin

min:=a;

if min>b then

b:=min;

if min>c then

c:=min;

if min>d then

d:=min;

end;

writeln('min=',min);

readln;

end.

Chắc chắn đúng nhé!

-----

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.