Bài 1:
Program Bai1;
Uses CRT;
Var a: integer;
Begin
Writeln('Nhap vao so a= '); readln(a);
if a mod 3 =0 then writeln('So ',a,' chia het cho 3!') else writeln('So ',a,' khong chia het cho 3');
end.
Bài 2:
Program Bai2;
Uses CRT;
var a,b,c,max: integer;
Begin
Writeln('Nhap a,b,c = '); readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('So lon nhat la: ',max);
end.
Anh/ chị check pascal giúp e có gì sai bảo e sửa nhá
