1.

2.

uses crt;
  type A= array[1..50] of integer;
  var K: A;
      i, n: integer;
procedure nhap;
var B: A;
    i: integer;
begin
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(B[i]);
        end;
end;
procedure pta;
var B: A;
    i: integer;
begin
        write('Cac phan tu am trong day: ');
        for i:=1 to n do if B[i]<0 then write(B[i]:3);
end;

3.

program phuongt;
uses crt;
  var s, i, n: integer;
begin
         clrscr;
         write('Nhap n = '); readln(n);
         s:=1;
         for i:=1 to n-1 do if n mod i = 0 then s:=s*i;
         if s=n then write(n, ' la so hoan hao') else write(n, ' khong phai so hoan hao');
         readln
end.

Câu 1:

a) Tham số thực sự: 3 cặp: BCNN(x,y), BCNN(z,t); x,y; z,t;

    Tham số hình thức: a,b;

b) Biến cục bộ: du,c,d;

     Biến toàn bộ: x,y,z,t;

Câu 2: 

uses crt;
var n:longint; a:array[1..50]of longint;
procedure nhap;
var i:longint;
begin
   write('a) Nhap n: (N<=50) ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap so thu ',i,': ');readln(a[i]);
      end;
end;
procedure ptam;
var i:longint;
begin
 write('b) ');
   for i:=1 to n do if a[i]<0 then write(a[i],' '); 
end;
begin
clrscr;
   Nhap;
   ptam; 
readln;
end.

Câu 3: 

uses crt;
var n,i,s:longint; 
begin
clrscr;
   write('Nhap 1 so: ');readln(n);
   for i:=1 to n do 
      if n mod i=0 then s:=s+i;
   if s=2*n then writeln('Day la so hoan hao') else
      writeln('Day khong la so hoan hao');
readln;
end.