program raf105;
var
i,n: integer;
k: real;
begin
write('Введите N: ');
readln(n);
k:=1;
for i:=1 to n do
k:= k * sin(1+i);
writeln('k = ',k);
end.
program raf105;
var
i,n: integer;
k: real;
begin
write('Введите N: ');
readln(n);
k:=1;
for i:=1 to n do
k:= k * sin(1+i);
writeln('k = ',k);
end.
PascalABC 3.4.2