Giúp mình hai câu này với sử dụng pascal nha

11.

uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
if (a=b) and (b=c) then
 write('la tam giac deu')
else
 write('ko phai la tam giac deu');
readln
end.

12.

uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then
 write('la tam giac can')
else
 write('ko phai la tam giac can');
readln
end.

`Code:`

`11`

uses crt;
var a, b, c: real;
begin
    clrscr;
    write('nhap ba canh cua tam giac: '); readln(a, b, c);
    if (a = b) and (b = c) then write('la tam giac deu')
    else write('khong la tam giac deu');
    readln
end.

`12`

uses crt;
var a, b, c: real;
begin
    clrscr;
    write('nhap ba canh cua tam giac: '); readln(a, b, c);
    if (a = b) or (b = c) or (c = a) then write('la tam giac can')
    else write('khong la tam giac can');
    readln
end.
$\text{#KL0112}$