program CalculateExpression;
vari: integer;result: real;
begin
result := 1;
for i := 1 to 10 dobeginresult := result * 1+sin(i/10)1 + sin(i/10)1+sin(i/10);end;
writeln′Result:′,result:0:5'Result: ', result:0:5′Result:′,result:0:5;
end.
program CalculateExpression;
var
i: integer;
result: real;
begin
result := 1;
for i := 1 to 10 do
begin
result := result * 1+sin(i/10)1 + sin(i/10)1+sin(i/10);
end;
writeln′Result:′,result:0:5'Result: ', result:0:5′Result:′,result:0:5;
end.