помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале

Const  a=12;  b=19;var  i: integer;  z:real;beginfor i:=a to b do  z:=z+exp(sin(i));writeln('Z=',z);end. Const  a=-10;  b=19;var  i: integer;  x:real;beginfor i:=a to b dobegin  x:=i;  if i>a then writeln('F3(',x-0.5,')=',exp(sin(x-0.5)));  writeln('F3(',x,')=',exp(sin(x)));end;end. Const  a=-10;  b=19;var  x:real;beginx:=a;while x<=b dobegin writeln('F3(',x,')=',exp(sin(x))); x:=x+0.5;end;end. Const  a=-10;  b=19;var  x:real;beginx:=a;repeat writeln('F3(',x,')=',exp(sin(x))); x:=x+0.5; until x>b;end.