Bài 1:
uses crt;
var a,b,c,s,p,cv:real;
BEGIN
clrscr;
write('Nhap do dai canh thu nhat:'); readln(a);
write('Nhap do dai canh thu hai:'); readln(b);
write('Nhap do dai canh thu ba:'); readln(c);
cv:=a+b+c;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi:',cv:0:3);
writeln('Dien tich:',s:0:3);
if (a=b) or (b=c) or (a=c) then write('D la tam giac can')
else write('D khong phai tam giac can');
readln
END.
Bài 2:
uses crt;
var n,i:byte;
a:array[1..100] of word;
BEGIN
clrscr;
write('Nhap so luong so:'); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']:');
readln(a[i]);
end;
write('Cac so chan la:');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],' ');
readln
END.