Нужно написать программу для проверки: то есть умножить А(i,j) на X(i), чтобы получить вектор B(i).
Подскажите пожалуйста правильно ли я рассуждаю:
нужно написать в Real*4 S(10) (в самом начале)
далее после данной программы ввести S=A(i,j)*X(i), напечатать Write (*,*)S и Еnd

Если на месте красной линии, то Вы в это место при нормальном завершении стандартной п/п никогда не попадёте.

Нет. Тут два цикла, один в другом, явно, ручками, прописать надо.

оки, значит нужно сделать цикл Do i=1,10 и do j=1,10 потом S=A(i,j)*X(i) и печать?

Нет. Во внешнем цикле ( который у Вас по I ) сперва нужно обнулить S(I), а потом, во внутреннем ( по J ), поприбавлять к этому S(I) попарные произведения A(I,J)*X(J).

Do i=1,10
s(i)=0
do j=1,10
S(i)=s(i)+A(i,j)*X(i)
write(*,*)s(i)

x(j) . X йот'ое.

Ну и циклы позакрывать нужно...

Do i=1,10
s(i)=0
do j=1,10
S(i)=s(i)+A(i,j)*X(j)
enddo
endoo
write(*,*)s(i)
при закрывании цикла не могу быть уверен может быть после Write

...
enddo
write(*,*)s(i)
enddo

Красоты, конечно, никакой, но хотя бы не за циклом печатаем...

Спасибо разобрался