Lập trình pascal các bạn xem nhá

Tính giá tri c?a t?ng sau:
A1 + a2 +a3 +…..+ak
program bai1;
uses crt;
var n,k,i:integer;
s: real;
function mu(a,k:integer):real;
var gt:real;
begin
gt:=exp(k*ln(a));
mu:=gt;
end;
begin
clrscr;
write(`nhap vao n va k`); readln(n,k);
if n or k< 0 then write(` nhap lai n va k`)
else
s:=0;
for i:=1 to n do
s:= s+ mu(i,k);
write(`gia tri cua tong la`,s:5:0);
readln;
end.



program bai2;
uses crt;
var s,i,n:integer;
function giaithua(a:integer):integer;
var i,gt:integer;
begin
gt:=1;
for i:=1 to a do
gt:=gt*i;
giaithua:=gt;
end;
begin
clrscr;
write(`nhap n `);
readln(n);
s:=0;
for i:=1 to n do
s:=s+giaithua(i);
write(`gia tri cua day la`,s);
readln;
end.




program bai3;
var a,b,c:array[1..5,1..5]of integer;
n,i,j:integer;
begin
write(`nhap n`);
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write(`a[`,i,`][`,j,`]=`);
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
write(`b[`,i,`][`,j,`]`);
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
c[i,j]:=a[i,j]+b[i,j];
end;
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]);
writeln;
end;
readln;
end.



program bai4;
var a:array[1..10] of real;
b,c,n,i:integer;
tbca:real;
tbcd:real;
begin
write(`nhap n `);
readln(n);
for i:=1 to n do
begin
write(`a[`,i,`]`);
readln(a[i]);
end;
tbca:=0;
b:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
tbca:=tbca+a[i];
b:=b+1;
end;
end;
tbcd:=0;
c:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
tbcd:=tbcd+a[i];
c:=c+1;
end;
end;
writeln(`trung binh cong so am = `,tbca/b:7:1);
writeln(`trung bing cong so duong = `,tbcd/c:7:1);
readln;
end.


‘

program bai6;
var n,i:integer;
s,x:real;
function giaithua(k:integer):integer;
var i,gt:integer;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
giaithua:=gt;
end;
function mu(x:real;k:integer):real;
var w:real;
begin
w:=exp(k*ln(x));
mu:=w;
end;
function dandau(i:integer):integer;
var q:integer;
begin
if i mod 2=0 then q:=-1
else q:=1;
dandau:=q;
end;
begin
write(`nhap n va x`);
readln(n,x);
s:=x