Program Hotboy ;
uses crt;
var x,y,z:real;
begin
Clrscr;
write('Nhap canh x,y,z');readln(x,y,z);
if sqr(x)+sqr(y)=sqr(z) or sqr(y)+sqr(z)=sqr(x) or sqr(x)+sqr(z)=sqr(y) then write(x:3,y:3,z:3'la 3 canh cua 1 tam giac vuong')
else write(x:3,y:3,z:3' khong phai 3 canh cua 1 tam giac vuong');
readln
end.
2/ Program Hotboy ;
Uses crt;
Var i,m,n ,s : integer;
Begin
Clrscr;
S:=0;
For i:= m to n do
Begin
If (i mod 3=0) or ( i mod 5=0) then
s:=s+i;
End;
write('Tong cac so tu m den n chia het cho 3 hoac 5 la',S);
readln
end.