Укажите сколько раз выполнится цикл в программе:
a:=3; b:=7;
while (a/2)<=(b/3) do
begin
a:=a+2;
b:=b+3;
end;