Задача 7 Урок 17

Задача 7 урок 17

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

<целоечисло><произвольное число пробелов> <арифм.операция> <произвольное число пробелов> <целоечисло>

например:

1 +  3

или

2 - 12

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

program U17Z7;
var s,str: string;
    i,a,b,code,j: integer;
    f:boolean;
begin
  writeln('vvedite stroku');
  readln(s);
  str:='';
  i:=1;
  while (s[i]<>' ') do
  begin
    str:=str+s[i];
    i:=i+1;
  end;
  val(str,a,code);
  writeln('a=',a);
  str:='';
  while (s[i]=' ') do
    i:=i+1;
  if (s[i]='+') then
    f:=true
  else
    f:=false;
  i:=i+1;
  writeln(f);
  while (s[i]=' ') do
    i:=i+1;
  for j:=i to length(s) do
    str:=str+s[j];
  val(str,b,code);
  writeln('b=',b);
  if(f) then
    writeln(a+b)
  else
    writeln(a-b);
  readln();
end.