// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
Б В А Г
По поводу операций В и А нельзя однозначно сказать какое из них сильнее пофильтрует
<span>var
a,b:integer;
procedure Poisk(a,b:integer);
begin
if a > b then
writeln('Меньшее число ', b);
if a=b then
writeln('Равны');
if a < b then
writeln('Меньшее число ', a);
end;
begin
writeln('Введите числа');
readln(a,b);
Poisk(a,b);
end.</span>