Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều 
Bài 1: Cho đoạn chương trình sau:
Program Vidu;
Var
A,B : text;
F : integer;
Begin
Assign ( A,'Songuyen.TXT');
Assign ( B,'Soam.TXT');
reset (A);
rewrite (B);
while not eof (A) do
begin
read ( A, x);
Ifx>= 0 then
Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)
else write ( B,x);
end;
close (A); close (B);
End.
Xác định ý nghĩa của các lệnh và cho biết chương trình trên làm công việc gì?
Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.
