С клавиатуры вводятся n чисел найти произведение введенных чисел!

не так, там еще кол-во чисел нужно

Добавь после writeln(res); строчку writeln(n);

Зачем Вам вывод количества введённых значений?

//PascalABC.NET 3.2 сборка 1318Var  res,n,i,k:integer;beginres:=1;writeln('N:');readln(n);for i:=1 to n dobegin  readln(k);  res:=res*k;end;writeln(res);end.Пример ввода:3123Пример вывода:6