Найти значения функции X=Y2 *(Y 2 -Y)/Y при Y={N,N*1,N*2,…,N*M} (N. как записать на языке паскаль?

Где брать N и M?

вообще код такой (если все верно в условии) :
for i:=0 to m do
if i=0 then x:=n*2*(n*2-n)\n else // Чтобы не умножать на 0
x:=n*i*2*(n*2*i-n*i)\(n*i);
Но первоначальное выражение можно оптимизировать:
x = y * 2 (2-1) (убираем Y из скобок)
получаем X = y*2
итого код:
for i:=0 to m do
if i=0 then x:=n*2 else
x:=n*i*2;

Не забудь что тип результата X будет real