1.
program phuongt;
uses crt;
var x, y, t: integer;
begin
clrscr;
write('Nhap x = '); readln(x);
writeln('Nhap y = '); readln(y);
t:=x;
x:=y;
y:=t;
writeln('Gia tri x, y khi doi cho la: ');
write('x = ', x, '; y = ', y);
readln
end.
2.
program phuongt;
uses crt;
var a, b, c: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write('Lap thanh tam giac');
if (a=b) or (b=c) or (a=c) then write('Day la tam giac can');
if (a=b) and (b=c) then write('Day la tam giac deu');
if (a*a+b*b=c*c) and (a*a+c*c=b*c) and (b*b+c*c=a*a) then write('Day la tam giac vuong');
readln
end
else
write('Khong lap thanh tam giac');
end.
