Program bai_tap;

var  f :text ;
      x : integer;

Begin 
          assign ( f,'C:\ songuyen.TXT');
          reset (f);
          While not eof (f) do
          begin 
          read (f,x);
          If x mod 2 <> 0 then 
          Writeln ( ' So le :' x:5);
          end;
          Close (f);

End.
            
        Bài 2 : Cho tệp số nguyên TXT chứa các số nguyên , mỗi số cách nhau một kí tự trắng . Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra căn bậc 2 & ghi vào tệp số âm các số nguyên âm .
Program Vidu;
Var
       A,B : text;
       F : integer;
Begin 
       Assign ( A,' C:\ Songuyen.TXT');
       Assign ( B,'C:\Soam.TXT');
       reset (A);
       rewrite (B);
       while not eof (1) do
       begin
       read ( A, x);
       If x>= 0 then
       Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)
       else write ( B,x);
       end;
       close (A) ; close (B);

End.
   

1. Một file văn bản trên đĩa có tên là SON.INF chứa đúng một dòng bao gồm hai số tự nhiên n, m được viết cách nhau một dấu cách. Sau đây là một ví dụ về file này:4 5. Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.

Var f:text;

m,n:integer;

Begin

Assign(f,'son.inf');   Reset(f);

Readln(f,m,n);

Close(f);

Writeln(m:4,n:4);

Readln;

End.