Находившаяся в стакане вода массой 200 г полностью испарилась за 20 сут. Сколько в среднем молекул воды вылетало с ее поверхности за 1 с?

Var a: integer;
begin
     readln(a);
     while (a >= 3) do
     begin
           if (a >= 4) then
           begin
                writeln(a, ' - 4 = ', a - 4);
                a := a - 4;
           end;
           if (a >= 3) then
           begin
                writeln(a, ' - 3 = ', a - 3);
                a := a - 3;
           end;
     end;
end.

Так?