Program Hz;
var x,left,right:real;
    i,n:integer;

Begin
Write('Введите число X: '); Readln(X);
Write('Введите число N: '); Readln(N);

Left:=0;
for i:=1 to n do Left:=Left+Sin(i*X);

Right:=(Sin(N+1)*X/2*Sin(N*X/2))/Sin(X/2);

Writeln('Left=  ',Left);
Writeln('Right= ',Right);

Writeln('Равенство выполняется? - ',(Left = Right));
end.