Viết CT Free Pascal

Viết CT Free Pascal dùm em ạ
----- Nội dung dịch tự động từ ảnh -----
II_4. Ba số tự nhiên a, b, c được gọi là bộ số Pytago nếu bình phương 1 số bằng tổng các
bình phương của 2 số còn lại (VD: a? +b²= c).
Hoặc số tự nhiên n 2 3 được gọi là số Pytago nếu n² = (n - 1)² + (n - 2)².
a. Viết chương trình nhập 3 số tự nhiên từ bàn phím và in ra màn hình thông báo chúng
có là bộ số Pytago không.
b. Viết chương trình nhập 1 số tự nhiên từ bàn phím và in ra màn hình thông báo số đó có
phải là số Pytago không. Lưu ý: Kiểm tra dữ liệu nhập vào có hợp lệ không.