Даны натуральные числа а, n. Вычислить a(a-n)(a-2n)...(a-n*n). через паскаль

Question

Даны натуральные числа а, n. Вычислить a(a-n)(a-2n)...(a-n*n).
через паскаль

Answer 1

Program info;
var a,n,o:integer;
begin
read(a,n);
s:=a*(a-n)*(a-2n)*(a-n*n);
writeln(s);
end.
Вот и всё....