Определите значение переменной a после выполнения алгоритма:

Program a_b;
var a,b:real;
begin
a := 6;
b := 2;
b := a/2*b;
a := 2*a+3*b;
write\(a\);
end.

В ответе укажите одно целое число – значение переменной a.