Помогите пожалуйста! Надо найти произведение чисел от 1 до 10 в Pascal ABC.

var y,r:integer; {описание необходимой переменной, счетчика }begin {запуск программы}y:=1;r:=1; for y:=1 to 9 do {создание цикла для умножения чисел} r:=r*(y+1); {рабочая формула}writeln(r); {вывод результата на экран}end. {конец работы алгоритма}