Помогите записать на языке паскаля.

В своем примере ты спутал 1 и 2 задания. 1 надо было делать так:
[code]
program shnyaga1;
var a, S: real;
n, k: integer;
begin
readln(n);
S := 0;
For k:=1 to n do
begin
a := exp(k*ln(k));
S := S + a;
end;
writeln('summa ryada=',S);
end.
[/code] (это 1 задание)

2 задание делается так
[code]
program shnyaga2;
var a, S: real;
i,j: integer;
begin
S:=0;
For i:=1 to 100 do
begin
For j:=1 to 60 do
begin
a := sin(i*sqr(i) + sqr(sqr(j));
S := S + a;
end;
end;
writeln('summa ryada=',S);
end.
[/code] (это 2 задание)

3 задание. Тут ряд бесконечный, но сходящийся, поэтому имеет смысл складывать только до тех пор, пока очередное слагаемое не станет равно компьютерному 0, то есть не станет меньше компьютерной точности.
[code]
program shnyaga3;
function fact(n)
var i: integer
begin
fact:=1;
for i:=1 to n do fact:=fact*i;
end
var a, S, x: real;
n, k: integer;
flag: boolean
begin
readln(n);
readln(x);
S := 0;
flag := false
while flag = false do
begin
a := exp((n+2*k)*ln(x/2))/fact(k)/fact(k+n);
if k mod 2 := 1 then a := a*(-1)
S := S + a;
end;
writeln('summa ryada=',S);
end.
[/code] (это 3 задание)

4 и 5 не знаю, как делать. Думать надо.

Первое:
program shnyaga;
var k,n:integer;
a:real;
begin
write('Vvedite n: ');
readln(n);
a:=0;
For k:=1 to n do
a:=a+exp(ln(k)*k);
writeln('summa ryada=',a);
end.