Помогите решить задачи в паскале!

[Jenee]

Вот они:

[Hitoku]

Столько задач в одну тему...
Функция:

var
  x,f:real;
begin
  write('Введите X: '); readln(x);
  if x<=0 then f:=-x else
    if (x>0) and (x<2) then f:=x*x else
      f:=4;
  write('F = ',f);
end.

[Hitoku]

Выражение с чередующимися знаками (хоть где-то пригодился goto)

label first,second;
var
  n,k:integer;
  res,i:real;
begin
  write('N = '); readln(n);
  k:=0; res:=0; i:=0.1;
  first:
  while k<n do begin
    res:=res+(i); i:=i+0.1;
    k:=k+1; goto second;
  end;
  second:
  while k<n do begin
    res:=res-(i); i:=i+0.1;
    k:=k+1; goto first;
  end;
  write(res:0:2);
end.

[Hitoku]

Фибоначчи

function fib(i:integer): integer;
begin
  if (i<=2) then fib:=1
  else fib:=fib(i-1)+fib(i-2);
end;
var
    n,i:integer;
begin
  writeln('N = ');readln(n);
  for i:=1 to n do write(fib(i),' ');
end.

[Hitoku]

С датой

var
    d,m:integer;
    M31:set of integer := [1,3,5,7,8,10,12];
    M30:set of integer := [2,4,6,9,11];
begin
  writeln('D,M = '); readln(d,m);
  if m in M31 then begin
    if (d=31) and (m=12) then begin d:=1; m:=1; end else
    if d=31 then begin d:=1; m:=m+1 end else
    d:=d+1;
  end;
  if m in M30 then begin
    if (d=28) and (m=2) then begin d:=1; m:=m+1; end else
    if d=30 then begin d:=1; m:=m+1; end else
    d:=d+1;
  end;
  write(d,' ',m);
end.

[Aleksandr H.]

Goto может и не пригодиться

var
N : integer;
i : integer;
S, one, st : real;
begin
s := 0;one:=1;st:=1.0;
write('Input N: ');readln(n);
for i:=1 to n do
begin
     st:=st+0.1;
     s:=s+one*st;
     one :=-one;
end;
writeln(N,': ',S:2:2);
readln;
end.

[Plague]

Сообщение от Hitoku

Выражение с чередующимися знаками (хоть где-то пригодился goto)

И зачем он здесь?

var s:real;
    i,n,z:integer;
begin
  s:=0;
  z:=1; //знак
  read(n);
  for i:=11 to 10+n do
    begin
      s:=s+z*i/10;
      z:=-1*z
    end;
  write(s)
end.

[Hitoku]

Я так увидел

[Jenee]

Спасибо!!!