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

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

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

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

program lesson17_7;
var
    s, a, b, c: string;
    d: boolean;
    i, num1, num2: integer;
begin
    writeln('enter the expression: ');
    readln(s);

    d := true;
    a := '';
    b := '';
    c := '';
    for i := 1 to length(s) do
    begin
        if (s[i] >= '0') and (s[i] <= '9') then
            if d then
                a := a + s[i]
            else
                b := b + s[i]
    	else if d and (a <> '') then
            d := false;

        if (s[i] = '+') or (s[i] = '-') then
            c := s[i];
	end;

	val(a, num1);
    val(b, num2);

    if c = '+' then
        writeln(num1, ' + ', num2, ' = ', num1 + num2)
    else
        writeln(num1, ' - ', num2, ' = ', num1 - num2);

	readln();
end.