Developing.ru

Помогите пожалуста сделать:
1) Процедуры: ВЛОЖЕНИЕ 1
G= S от 1 до 5 ( i/i^2+1) + S от 2 до 6 (i+5) + S от 3 до 8 ( i/i^2+1)
2)Множества: Вввести символьный рядок. Сформировать и распечатать множества, элементы которой - знаки операций присвоения и символы $ # №
3.1 Сформировать два файла с целых чисел. Записать в третий файл нулевые елементы 1 файла и парные элементы 2
3.2 В данном текстовом файле переписать в новый файл все компоненты с заменой символа a на символ i и наоборот!!!
4. есть 4 но не обязательно построить график 1/х - 3

Заранее спасибо!
Примного Благодарен!

1. for i:=1 to 5 do sum:=sum+i/(sqr(i)+1), остальные суммы по аналогии
2. for i:=1 to N do if s in [':','=','$','#','№'] then write(s);
3. repeat readln(f1, x); if x=0 then writeln(f3, 0); until eof(f1);, про второй файл непонятно
4. repeat readln(f1, c); if c='a' then c:='i' else if c='i' then c:='a'; writeln(f2,c); until eof(f1);

Тема закрывается, так как нарушет правила раздела.
Так и быть, удалять не буду, поскольку ответ уже дан.