Hãy viết chương trinh thực hiện tính tổng các số nguyên

Bải 1: Cho tệp baitap.int, trong nó có nhiều dòng, mỗi dòng ghi ba số nguyên, mỗi số cách nhau một dấu cách, Hãy viết chương trinh thực hiện tính tổng các số nguyên trên mỗi đòng sau đó ghi các tổng mỗi tổng trên một đồng theo thứ tự tìm được) vào tệp out1.inp 

Bài 2: Hãy chi ra tên chương trình con, nó thuộc dạng hàm hay thủ tục? Các tham số hình thực? Các tham số thực? hiện? Khi thực hiện xong thi nó cho kết quả gì? 

1. Uses crt; 

2.Var tuso, mauso, a : Integer; 

3.Functin ABC(x.y :Integer) : Integer; 

4.Var sodu : Integer;

5.Begin 

6. While y O do Begin Sodu :=x mod y; Xy; Y= sodu;End;

7. ABC =sodu; 

8.End;

9. Begin 

10. Clrscr; 

11. Write(' nha tuso va mauso vao'); 

12. ReadIn(tuso,mauso); 

13. A=ABC( tuso,mauso);

14. Readln

15. End.