Используя, команду while напишите программу вычисления суммы и произведения натурального ряда чисел от 1 до n

Begin m:=1; k:=1; read(n); i:=1; while i<>n do begin k:=k+i; m:=m*i; i:=i+1; end; write(k,' ',m); end. Переменные, думаю, сами опишете)