Potrzebne 2 programy

Cześć , kolega polecił mi to miejsce twierdząc że są tu ok ludzie , którzy mi pomogą.
Potrzebuje dwóch programów , musze coś zaliczyc z informatyki a programowanie to nie jest moja mocna strona.
Poniżej zamieszczam przykładowe dwa opisy programów , mam jeszcze inne więc jeśli te będą za trudne to moge podesłać inne. Najlepiej żeby to był nieskompilowany kod , żebym mniej więcej zrozumiał o co chodzi.

Program 1
Napisz funkcje, która oblicza sume odwrotności parzystych liczb naturalnych nie większych od
podanej liczby naturalnej.
function sumodw(n: longint): extended;

Program 2
Napisz program, który czyta ciąg znaków i wypisuje go na ekranie z wyjątkiem pierwszego
i ostatniego znaku tego ciągu.

Co w zamian ? W sumie to nie wiem co moge wam oferować , jestem grafikiem komputerowym , więc ewentualnie coś mógłbym w zamian stworzyć.
Sprawa jest dla mnie bardzo ważna i pilna dlatego prosze o pomoc.
Jeśli ktoś byłby skłonny mi pomóc to proszę o kontakt przez e-maila lub gadu-gadu.
Z góry bardzo dziekuje .

Kontakt :
[email protected]
gg: 1100477

Pozdrawiam
Marek Prochera

ad. 1: parzyste liczby wyraża się wzorem 2x więc można kombinować tak:

function sumodw(n: LongInt): Real;
var
I: integer;
begin
for i:=1 to n do
sumodw:=sumodw+ 1/(2i);
end;

(to było a'la pascal)

ad.2: zależy w czym to trza napisac, jak w delphi to no problem jak w TP ,to zara kod bedzie, jeno napisz w czym to robisz.

Oba zadania mają być w Pascalu.

jak w pascalu to crt, readln, copy i writeln, chyba:

Program luzik;
uses CRT;
var S: String;
begin
WriteLN('Pisz coś i nacisniej Enter');
ReadLN(S);
S:=Copy(S, 1, Lengtg(S)-1);
writeLN(S);
end.

Wejdź na www.juhas.glt.pl

Tam są pisane programy na zaliczenie...
ZA DARMO oczywiście...

Wielkei dzięki Johnny_Bit za napisanie programików ... tylko że nie moge ich skompilować , jakiś błąd wyskakuje.

function sumodw(n: longint): extended;
var
i: longint;
r: exended;
begin
i:=2;
r:=0;
while i