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

var a, b: integer;
begin
a:=2;
b:=0;
while a<>10 do
begin
a:=a+2;
b:=b+2*a;
end;
write \(b\);
end.