Составьте программу для решения следующей задачи. Дана последовательность чисел 10,20,30,40...N.Вычислить произведение первых чисел этой последовательности не превосходящих N - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var pro,n,k:longint;
begin
readln(n);
k:=10; pro:=1;
while k<=n do
 begin
  pro:=pro*k;
  k:=k+10;
 end;
writeln(pro);
end.