PASCAL ABC. Найти значение любого выражения из двух слагаемых!!! т.е. просто чтоб посчитало, например: 2+2=4, 9/3=3, 7*7=49, 15-5=10

varx,y,v:real;b:string;beginwriteln('Vvedite znak virajeniya (+, -, *, /)');readln(b);writeln('Vvedite pervoe chislo');readln(x);writeln('Vvedite vtoroe chislo');readln(y);if b = '+' then v:=x+y;if b = '-' then v:=x-y;if b = '*' then v:=x*y;if b = '/' then v:=x/y;writeln(x, ' ', b, ' ', y, ' = ', v);end.