Помогите пожалуйста! По информатике задали это y^n n=1,2,3,4,5.
Что делать?

var y, n, d, c: integer;begind:=1;write('y = ');readln(y);for n:=1 to 5 dobegind:=d*y;writeln(y, '^', n, ' = ', d);end;end.