две задачи!!!

[LOVELY]

дана строка символов (длина <256), которая содержит арифметическое выражение, состоящее из натуральных чисел (<1000) и знаков + и - . Составьте программу, которая вычислит значение выражения.
Input: выражение вводится с клавиатуры
Output: значение выражения выводится на экран

и ещё одна (в переводе):

последовательности созданы из элементов С, разница межжу любыми двумя элементами констнтна...нотируемая Р...написать прогу которая найдеёт все последовательности с максимальным количеством терменов, уточняя Р и первый термен
Инпут: значение н вводиццо с клавы
аутпут: инфа про каждую последовательность будут показываццо на каждой линии отдельно: Р и первый термен через пробел

буду очень благодарна спасителю)))

[Sazary]

Первая:
В выражении не должно быть пробелов (раз уж в условии не обговорено, то и не стал заморачиваться)

uses crt;
var s,tt : string;
i,len,RESL,tmp : integer;
z : boolean;

function getnum(str : string) : integer;
 var gl,gi,rez : integer;
 begin
 rez := 0;
 gl := length(str);
 for gi:=gl downto 1 do
   rez := rez + (ord(str[gi])-48)*round(exp((gl-gi)*ln(10)));
 getnum := rez;
 end;

begin
clrscr;
writeln('Enter string:');
readln(s);

i:=1;
len := length(s);
RESL := 0;
tt := '';
while s[i] in ['0'..'9'] do
 begin
 tt := tt + s[i];
 inc(i);
 end;
RESL := getnum(tt);
while i<len do
  begin
  if s[i]='+' then z := true
   else z := false;
  inc(i);
  tt := '';
  while (s[i] in ['0'..'9']) and (i<=len) do
    begin
    tt := tt + s[i];
    inc(i);
    end;
  tmp := getnum(tt);
  if z then RESL := RESL + tmp
  else RESL := RESL - tmp;
  end;

writeln('Result= ',RESL);
readln;
end.

Пример ввода:

Enter string:
1+2+3-2+12-4
Result= 12

[capta1n]

program capta1n;
uses crt;
var
 s,x : string[80];
 i,k : byte;
 flag : boolean;
 x1,z,er : integer;
begin
  clrscr;
  writeln ('Input: ');
  writeln ('For example, 34+12-24+2-9 and press the button <ENTER>: ');
  readln(s);
  flag:=true;
  for i:=1 to length(s) do
   if not (s[i] in ['0'..'9','+','-']) then flag:=false;
  if flag then
  begin
    x:='';
    i:=1;
    while (i<=length(s)) and (s[i]<>'+') and (s[i]<>'-') do
    begin
      x:=x+s[i];
      inc(i)
    end;
    writeln (x);
    val (x,z,er);
    repeat
      x:='';
      k:=i+1;
      while (k<=length(s)) and (s[k]<>'+') and (s[k]<>'-') do
      begin
        x:=x+s[k];
        inc(k)
      end;
      val (x,x1,er);
      writeln (x1);
      if s[i]='+' then z:=z+x1
                  else z:=z-x1;
      i:=k
    until i>=length(s);
    writeln ('Value of expression is ',z);
  end
  else writeln ('Error');

  readln

end.