Viết code bằng Pascal cho bài sau

giúp em vs aa
giải = pascal. ghi đầy đủ code. xog trong tối em guiqr 2  coin làm quà c,on