Mọi người giúp em giải mấy bài pascal này với!!!!!!

[abusayyart]

Em đang cần rất gấp !!!

1 Cho tập tin Matrix.inp có dữ liệu chỉ bao gồm 1 dòng duy nhất chứa N+1 số phân cách nhau bởi khoảng trắng. Tìm cách đọc dữ liệu từ tập tin trên để lưu vào mảng A rồi tìm các số nguyên tố có trong mảng để ghi ra tập tin Matrix.out.
Ta chỉ biết các thông tin sau:
- A là mảng một chiều có N phần tử (10<=N<=100).
- Số đầu tiên trong dòng dữ liệu chính là số phần tử của A

Matrix.inp 12 3 4 5 6 7 4 2 56 34 56 87 55
Matrix.out 3 5 7 2


2. Viết chương trình nhập và xuất mảng 2 chiều từ file data.inp(nhập) và data.out(xuất)

3.Nhập vào 1 dãy số gồm n phần tử vào file data.inp và ghi ra file data.out các số là số nguyên tố trong dãy

- Yêu cầu : (cả 3 bài)
o Sử dụng được chương trình con để giải quyết.
o Đọc ghi file đúng yêu cầu của bài toán.

Mọi người giúp em với em mới học qua chương trình con nên chưa hiểu nhiều, em cần rất gấp. Thanks mọi người nhiều lắm [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[Tidus86]

1:

uses crt;
var n: integer;
F: text;

function so_mu(a,b:integer):integer;
var ib, i: integer;
begin
 ib:=1;
 for i:=1 to b do
  ib:=ib*a;
 so_mu:=ib;
end;

function kiemtra(x: integer):integer;
var dv,j,s,i: integer;
a: array[1..5] of integer;
begin
 i:=0;
 s:=0;
 while (x<>0) do
 begin
  dv:=x mod 10;
  i:=i+1;
  a[i]:=dv;
  x:=x div 10;
 end;
 for j:=1 to i do
  s:=s+so_mu(a[j],i);
 kiemtra:=s;
end;

begin
 clrscr;
 assign(F,'Amstrong.inp');
 reset(F);
 read(F,n);
 close(F);
 assign(F,'Amstrong.out');
 rewrite(F);
 if kiemtra(n)=n then
  writeln(F,'Yes')
 else
  writeln(F,'No');
 close(F);
end.

2:

Program super_spam;
Uses crt;
Var
  F,F2:text;
  i,n,gt:longint;
{--------------------------------------}
Procedure spam;
Begin
  Assign(F1,'GGThua.inp');
  Reset(F1);
  Assign(F2,'GGThua.out');
  Rewrite(F2);
  Read(F,n);
  If n mod 2=0 then
    For i:=1 to n do
      If i mod 2=0 then gt:=gt*i
  Else
    For i:=1 to n do
      If i mod 2=1 then gt:=gt*i;
  Write(F2,gt);
  Close(F);
  Close(F2);
End;
{--------------------------------------}
BEGIN
  Clrscr;
  spam;
END.

3:

Uses crt;
Var
  a,b,x:integer;
  F:text;
{-----------------------------------------------------------------}
Procedure pt;
Var
  d:integer;
Begin
  Assign(F,'');
  Reset(F);
  Read(F,a,b,c,d);
  Close(F);
  If a=0 then write('Phuong trinh vo nghiem')
  Else
    Begin
      D:=b*b-4*a*c;
      If d=0 then write('Phuong trinh co nghiem kep x1=x2=',-b/(2*a));
      If d<0 then write('Phuong trinh vo nghiem');
      If d>0 then
        Begin
          Writeln('Phuong trinh co 2 nghiem phan biet:');
          Write('x1=',(-b+sqrt(d))/(2*a));
          Writeln;
          Write('x2=',(-b-sqrt(d))/(2*a));
        End;
    End;
End;
{-----------------------------------------------------------------}
BEGIN
  Clrscr;
  pt;
END.