Дан алгоритм: начало присвоить a значение 1 присвоить b значение 1 присвоить c значение 0 пока a меньше чем 1001 начало цикла присвоить b значение b * a присвоить a значение a + 1 конец цикла пока b делится на 6 начало цикла присвоить c значение c + 6 присвоить b значение b / 6 конец цикла вывести c на экран конец что будет выведено на экран?
const
a, b, c :double
Begin
a=1
b=1
c=0
b:=b*a
a:=a+1
b:=b/6
c:=c+6
b=b/6/6
end.
Это на Pascal