Программисты, помогите пожалуйста, очень выручите. Нужен 8 вариант.
P.s PascalAbc

Const
  ax:array[1..3] of real=(4.3,5,10);
var
  i,j,k:integer;
  x,y,s:real;
begin
  for k:=1 to 3 do begin
    x:=ax[k];
    y:=0;
    for i:=1 to 5 do begin
      s:=0;
      for j:=1 to 4 do s:=s+sin(j*x)+i;
      y:=y+s
      end;
    Writeln(x=,x:4:1,,  y=,y)
    end
end.
    
Результат
x= 4.3,  y=55.7440276711038
x= 5.0,  y=60.3014385266612
x=10.0,  y=60.6300283811237