Помогите пожалуйста!!! a= 20 b=6 b=a div b +3 a=2*a mod b Найти значение а

Question

Помогите пожалуйста!!!
a= 20
b=6
b=a div b +3
a=2*a mod b
Найти значение а

Answer 1

Var a,b:integer;
begin
a:=20;
b:=6;
b:=a div b +3;
a:=2*a mod b;
writeln(a);
end.
Ответ 4