Memahami dan Mengartikan program

Artikan setiap kata dan baris pada program di bawah ini sehingga membentuk suatu kalimat yang bisa dipahami

Program 1

Program rata_rata_bilangan_bulat;
uses wincrt;
var
Ndata : integer;

procedure HitungRataRata(N : integer);
var
x,K, jumlah:integer;
rata:real;

begin
jumlah:=0;
for k:=1 to N do
begin
write('Nilai x:?');
readln(x);
jumlah:=jumlah+x;
end;
rata:=jumlah/n;
writeln('nilai rata-rata=',rata:0:2);
end;

begin
write('masukkan banyak data?'); readln(Ndata);
write('menghitung rata-rata N buah bilangan bulat');
HitungRataRata(Ndata);
end.

Program ke2
program faktorial;
uses wincrt;
var
i,n:integer;
h:real;
begin
clrscr;
writeln('Faktorial!');
writeln('!!!!!!!!!!');
writeln;
writeln('Nilai Faktorial (Maks. 33) : ');readln(n);
h:=1;
for i := 1 to n-1 do
begin
h:= h * (1+i);
end;
clrscr;
writeln('Faktorial');
writeln('=========');
writeln('Hasil ',n,'! = ',h:0:0);
end.