Cách khai báo đúng:
var S:integer;
d:real;
Khai báo S integer vì diện tích S=a*b mà a,b là số nguyên nên S cũng là số nguyên. Mà a,b lại nhỏ hơn 100 nên kết quả không thể vượt quá 10000 nên integer là đủ dùng, không cầ khai báo thêm cho tốn dữ liệu.
Khai báo d real vì đường chéo tính bằng cách d*d=a*a+b*b `=>` d=sqrt(a*a+b*b) mà sqrt trả về một giá trị thực nên phải khai báo đường chéo có kiểu dữ liệu thực.