问题 有谁帮我做几道题干什么都行 请高手帮我做我做牛做马都行

我现在正在人家公司考试：题目是：请高手帮我做我做牛做马都行1) 写一个函数计算当参数为n(n很大)时的值 1-2+3-4+5-6+7......+n。注意,n很大，尽量使用优化的算法。
2) 修改project2中的函数ShortStringAsPChar,使其可以按程序本意显示hello。注意,只能修改函数。
程序是：
program Project2;{$APPTYPE CONSOLE}uses
  SysUtils;var
  ss: string;
  p: pchar;function ShortStringAsPChar(S:ShortString):PChar;
var
  tmpi : integer;
  tmps1: string;
begin  tmps1:=s;             //将shortstring转换为string
  Result:=pchar(tmps1); {返回PChar化的字符串}
end ;begin
  ss := 'hello';
  p  := ShortStringAsPChar(ss);
  ss := '1';
  ss := '2';
  writeln(p);
  readln;
end.3) 写一个类用来操纵格式文本文件test.abc中的内容，如读出第几行，统计行数等等。注意，还可以考虑其他你能想到的功能。
将程序放入1－3对应的目录中。以上程序要求，编译后没有暗示，警告等。