Задача 9 Урок 18

Задача 9 Урок 18

На вход вашей программы подается строка вида:
?
1

например:
?
1

1 + 3

или
?
1

2 - 12

Напишите программу, которая разбирает вычисляет результат этого приложения (сделайте поддержку операций сложения и вычитания).

var x,y,s,k:string; i,j,l:integer; a:array[1..3] of integer;
begin
  readln(s);
  j:=1;
  for i:=1 to length(s) do
    if(s[i]>='0')and (s[i]<='9')then
      if j=1 then
        x:=x+s[i]
      else
        y:=y+s[i]
    else
    begin
      if j=1 then
        j+=1;
      if s[i]<>' ' then
        k:=s[i];
    end;

  val(x,a[1],l);
  val(y,a[2],l);
  if k='+' then
    a[3]:=a[1]+a[2]
  else
    a[3]:=a[1]-a[2];
  writeln (a[1],k,a[2],'=',a[3]);
  readln();
end.