program kiem_tra;

ues crt;

var a,b,c:integer;

begin

write('nhap so a');readln(a);

write('nhap so b');readln(b);

write('nhap so c');readln(c);

if(a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=b*b+a*a)then writeln('day la tam giac vuong')else writeln('day la tam giac thuong');

readln;

end.

Vương Vũ Nhi, mk khai báo thiếu max

bạn thêm vào nhé

program so_lon_nhat;

uses crt;

var a,b,c:integer;

begin

writeln ('Nhap so nguyen a='); readln(a);

writeln ('Nhap so nguyen b='); readln(b);

writeln ('Nhap so nguyen c='); readln(c);

max:=a;

if max < b then max:=b;

if max < c then max:=c;

writeln ('So lon nhat trong 3 so la:',max);

readln

end.

Program Diem_Trung_binh;
Uses Crt;
Var
Ten:String[24];
Van,Toan,Ly,tb:Real;
Begin
Clrscr;
Writeln('TINH DIEM TRUNG BINH VA XEP HANG');
Writeln('--------------------------------');
Write('-Cho biet ho ten: ');
Readln(Ten);
Write('-Cho biet diem mon Van: ');
Readln(Van);
Write('-Cho biet diem mon Toan: ');
Readln(Toan);
Write('-Cho biet diem mon Ly: ');
Readln(Ly);
Tb:=((Van*2)+(Toan*2)+ly)/5;
If tb < 5 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc kem');
End
Else if Tb < 7 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc trung binh');
End
Else if Tb < 9 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Kha');
End
Else
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Gioi');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

var a, b, c: real;
begin
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if a>=b then
begin
if b>=c then {a ≥ b ≥ c}
writeln(a:20:4, b:20:4, c:20:4)
else if c>=a then {c ≥ a ≥ b}
writeln(c:20:4, a:20:4, b:20:4)
else { a ≥ c ≥ b}
writeln(a:20:4, c:20:4, b:20:4);
end
else { b > a, coi như điều kiện b ≥ a đúng }
begin
if a>=c then { b ≥ a ≥ c}
writeln(b:20:4, a:20:4, c:20:4)
else if c>=b then {c ≥ b ≥ a}
writeln(c:20:4, b:20:4, a:20:4)
else {b ≥ c ≥ a}
writeln(b:20:4, c:20:4, a:20:4);
end;
readln;
end.

program tinhtoan;

uses crt;

var x,y,z:integer;

begin write('nhap x=');

readln(x);

write('nhap y= ');

readln(y);

write('nhap z= ');

readln(z);

write(' Tong 3 so la: ');

writeln(x+y+z);

write(' Tich 3 so la: ');

writeln(x*y*z);
readln

end.

var a,b,i,tong:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
tong:=a+b;
writeln(' Tong la: ',tong);
if (tong mod 2=0) then writeln(' Tong la so chan ')
else write(' Tong la so le: ');
readln;
end.

Đề không yêu cầu in TỔNG nên không writeln('Tong la:',tong); bạn nhé.

Program Ba_canh_tam_giac;
Uses CRT;
Var a , b , c : real;
Begin
Clrscr;
Write(nhap ba so a, b va c: ‘); Readln(a,b,c);
If (a+b<c) and ( b+c<a) and (c+a>b) then
Writeln(‘ a, b va c la 3 canh cua tam giac! ‘)
Else writeln(‘a, b va c khong la 3 canh cua tam giac! ‘);
Readlnl;
End.

program tamgiac;

uses crt;

var a,b,c:integer;

begin

Write('Nhap canh a:');readln(a);

Write('Nhap canh b:');readln(b);

Write('Nhap canh c:');readln(c);

if (a+b>c) and (b+c>a) and (a+c>b) then write('a,b,c la ba canh cua tam giac') else write('a,b,c k phai la ba canh cua tam giac');

readln;

end.

Chúc bạn học tốt ^^

if (n*n)=((n-1)*(n-1))+((n-2)*(n-2)) then { n là số pytago} else { n không phải là số pytago}