Паскаль - помогите решить задачку

[coollerik]

Уважаемые! Помогите пжлста не грамотному человечику разобраться с Паскалем и решить задачки!

1.∑(1/к)^n, к=1...n
найти сумму произведений (1/k)в степени n, при к от 1 до n!

2.Построить график функции (Sin^2 X)/X,на инткрвале от а до в(включительно)
Функция синус в квадрате икс,делённое на икс.

[Medved]

#1

program lalala;
var s,keal;
i,n:integer;
begin
read(n,k);
s:=1/k
for i:=2 to n do
s:=(1+s) /k;
writeln(s);
end.