Một xâu S gồm các kí tự số và kí tự dấu + -. Em hãy viết chương trình tính giá trị của xâu S đó. Dữ liệu nhập: - Nhập vào một xâu S duy nhất Kết quả: - in giá trị của xâu S ra màn hình. Dữ liệu đảm bảo S không vượt quá giới hạn số nguyên 64 bit. Ví dụ input 123+45-67+89 output 190 CẦN GẤP LẬP TRÌNH BẰNG PASCAL

uses crt;
var s,d:string;
res,i:int64;

function int(s:string):int64;
begin
val(s,int);
end;

begin
clrscr;
readln(s);
i:=1;
while s[i] in['0'..'9'] do
begin
 d:=d+s[i];
 i:=i+1;
end;
res:=int(d);
i:=i+1;
while i<=length(s) do
begin
 d:='';
 while (s[i] in ['0'..'9']) and(i<=length(s)) do
 begin
  d:=d+s[i];
  i:=i+1;
 end;
 if s[i-length(d)-1]='+' then res:=res+int(d)
 else
  res:=res-int(d);
 i:=i+1;
end;
write(res);
readln
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

const number = ['0'..'9'];
var a: array[1..100] of longint;
    ch: array[1..100] of char;
    s, tam: string;
    i, lus, sum, vt: longInt;

begin
      readln(s);
      tam := '';
      vt := 0;
      s := s + ' ';
    
      for i := 1 to Length(s) do 
      begin
        if s[i] in number then
          tam := tam + s[i]
        else
        begin
          val(tam, lus);
          inc(vt);
          a[vt] := lus;
          ch[vt] := s[i];
          tam := '';
        end;
      end;
    
      sum := a[1];
    
      for i := 1 to vt do 
      begin
        if ch[i] = '+' then
          sum := sum + a[i + 1]
        else if ch[i] = '-' then
          sum := sum - a[i + 1];
      end;
    
      write(sum);
end.