Посмотрите пож. Билет по паскалю

[Corleon4ik]

Помогите дорешать билет по паскалю пож ... я в нём не силён (( а скоро нада на экзамен
№1
1)Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции в точках x, x+n, x–n.
Протокол работы программ ы:
x= -2.3
n= 0.6
f(-2.3)= 3.026
f(-1.7)= 4.673
f(-2.9)= 2.542
2)Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции в точках x, x+n, x–n.
Протокол работы программы:
x= -1.5
n= 0.2
f(-1.5)= 0.643
f(-1.3)= 0.670
f(-1.7)= 0.597

№2
1)Составьте процедуру, выводящую представленную фигуру по заданным:
• координатам центра фигуры;
• размеру минимальной единицы фигуры;
• цвету линии.
Выведите на экран несколько таких фигур разного размера и цвета.
Форму фигуры задайте по образцу:
http://pic.ipicture.ru/uploads/090228/6UvcSl67Hb.jpg
http://pic.ipicture.ru/uploads/090228/u4LT7JN3W7.jpg

2)Составьте процедуру, выводящую представленную фигуру по заданным:
• координатам центра фигуры;
• размеру минимальной единицы фигуры;
• цвету линии.
Выведите на экран несколько таких фигур разного размера и цвета.
Форму фигуры задайте по образцу: http://pic.ipicture.ru/uploads/090228/m8LlG0CJD7.jpg
http://pic.ipicture.ru/uploads/090228/Pu0UPxNcDU.jpg
Заранее спасиб большое

[Chudo4258]

№1

function f(x:real):real;
begin
 f:=(2*x-cos(x))/(x+1);
end;
var x,n:real;
begin
readln(x);
readln(n);
writeln('f(x)= ', f(x));
writeln('f(x+n)= ', f(x+n));
writeln('f(x-n)= ', f(x-n));
end;