A= 20 b=6 b=a div b +3 a=2*a mod b найти значение а

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