Viết code pascal

Giúp mình bài pascal này với ạ. Deadline 10h:(
----- Nội dung dịch tự động từ ảnh -----
Câu 03: Đếm hình vuông
Trận chiến battleShip trong game quả là hấp dẫn. Hai
anh em Sắn và Mì có hai tàu tham chiến. Trong game này mỗi
tàu là một hình chữ nhật. Tàu của Sắn có kích thước (a*b), tàu
của Mì có kích thước (c*d). Hai anh em sẽ ghép tàu để chiến
đấu, cụ thể như sau:
• Tàu của Sắn sẽ ghép liền kề phía trên tàu của Mì
ghép sát.
Chúng được canh chỉnh để thẳng lề bên trái.
Khi ghép như vậy thì số ô phòng thủ của hai tàu sẽ giảm xuống, hỏi có
bao nhiêu ô vuông xung quanh hai tàu cần phòng thủ. Tức đếm số ô vuông
xung quanh hai tàu sau khi ghép.
Dữ liệu nhập: Nhập bốn số nguyên dương a, b, c, d (1 ≤ a, b, c, d ≤ 10)
Kết quả: in ra một số nguyên duy nhất là số ô vuông xung quanh hai tàu.
Ví dụ:
Dữ liệu nhập
Kết quả
1222
16
Giải thích: Hai tàu có thể ghép như hình vẽ trong đề bài.