Pascal Vấn đề chưa có!

[nameless12]

học pascal mãi giờ thấy thiếu cái j` đó
cụ thể là như thế này
viết chương trình in ra tam giác hê rông j` đó
tam giác đó thỏa mãn các cạnh và diện tích nguyên
cái khó ở bài này là làm sao kiểm tra được S là integer cơ chứ
ai bít cho code nhá
thank

[Date_Dr]

Var a,b,c,d:integer;
p,s:real;
BEGIN
If ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
d:=0;
If (s mod 2=0) or (s mod 2=1) then Begin inc(d) Else dec(d) End;
If d>0 then Writeln('Dien tich: ',s) Else Writeln('Khong phai so nguyen')
End
Else Begin Writeln('Day ko phai tam giac'); Readln; exit End;
Readln
END.

[quangtq]

Khai báo s là real nếu s-trunc(s)=0 thì s là nguyên.
Thế thôi.