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

var x, y: integer;
begin
writeln('Введите х:');
readln(x);
if (x>=-1) and (x<-0.05) then y:=20*x;
if (x>=-0.05) and (x<0.5) then y:=-16*x*x*x*x;
{Для этого случая сгодится. А вообще - stepen:=exp(ln(x)*n) - только для х>=0. Остальное - дописывать условия. Если надо - напишите в личку исправлю.
Кстати, т.к. степень четная - можно так: y:=-16*exp(ln(abs(x))*4);
Выбирайте.}
if (x>=0/5) and (x<1.5) then y:=-20*sin(5*(x-0.5))-10;
if (x>=1.5) and (x<=2) then y:=exp(ln(abs(x-1.75))*2)*190-3;
{Опять таки такое выражение допустимо только ввиду четности степени!}
writeln('y равен: ', y);
readln();
end.

var k, i, n, sum: integer;
control: real;
writeln('Введите n:');
readln(n);
sum:=0;
control:=(n*(4*n*n-1))/3;
if (n>0) then
begin
for n:=1 to n do
begin
k:=exp(ln(2*n-1)*2)
sum:=sum+k;
end;
if (sum=control) then writeln('Сумма равна контролькому значению')
else writeln('Сумма не равна контрольному значению');
end
else writeln('Ввод некорректен')ж
readln();
end.