Задание

Определить значение переменной с после выполнения следующего фрагмента программы

var a, b, c: integer;

begin

a := 15;

b := 30;

a := a*2 - b div 2;

if (a > b) then

c := 3*b - a div 3

else c := 3*a - 4 * b;

writeln (c);

end.