Question

Можете подсказать как решить эту задачу по циклу FOR?
var
x,i,y,s:integer;
begin
readln (x,y);
s:=1;
for i:=1 to y do
s:=s*y;
writeln (s);
end.