S= a+b/a-b +3*a Паскаль

Код:var s,a,b : real;begin  write('Введите а: ');  readln(a);    write('Введите b: ');  readln(b);    s := a + b / a - b + 3 * a;    writeln('S = '+s);  end.