Парни помогите плиз,очень надо

[zayai]

задание1.
написать программу печати таблицы значений функции у(Х) и функции g(х) для аргумента,изменяющегося на торезке[а;b] с заданным шагом h=(b-a)/n,где n-количество отрезков разбиения.Функция это система

у(х)= Ln(1-X) ;х<0
X*X+2X+3 ;0=<x<4
2x ;4=<x<6
x-7 ;х=>6

g(x)=2+sin(x/2)
a=-2
b=4.5
n=10

задание2
составаить и отладить программу для вычисления значения функции,заданной графиком на определенном интервале.

это система

Ln(1-X) ;х<0
X*X+2X+3 ;0=<x<4
у(х)= 2x ;4=<x<6
x-7 ;х=>6

[maladoy]

program funk;
uses crt;
var y,x:real;
begin
writeln('vvedi x');
readln(x)'
if x<0 then y:=ln(1-x);
if (x>=0) and (x<4) then y:=x*x+2*x+3;
if (x>=4) and (x<6) then y:=2*x;
if x>=6 then y:=x-7;
writeln ('y=',y);
readln;
end.

[maladoy]

uses crt;

var y,x,g:real;
i,n: integer;
a,b:real;
begin
a:=-2;
b:=4.5;
n:=10;
writeln ('a I y I g');
for i :=1 to n do
begin
if a<0 then
y:=ln(1-a);
if (a>=0) and (a<4) then y:=a*a+2*a+3;
if (a>=4) and (a<6) then y:=2*a;
if a>=6 then y:=a-7;
g:=2+sin(a/2);
writeln (a:4:2,' I ',y:4:2,' I ',g:4:2);
a:=a+0.65;
end;
readln;
end.