дали 3 задачи для фортрана условия такие :1. при её решении мне помогали чень хочу разобраться что к чему, а сама программа получилась вот такой:

Program first
real::x,y,y1,mn,proizved,k,z,z1
real, parameter:: pi=3.141593
k=1
proizved=1
print*,'x-?'
read*,x
y=sin(x)
do while ((1-mn).gt.0.00001)
mn=1-x**2/(k**2*pi**2)
proizved=proizved*mn
k=k+1
end do
y1=x*proizved
print*,y,y1
if (x.lt.pi/2.) then
z=1+y
z1=1+y1
elseif (x.ge.pi/2..and.x.lt.pi) then
z=1-y
z1=1-y1
end if
print*,z,z1
end