инфа / yelf& / 5var / 4.2.5_5var

subroutine sovp(h,i,x,j,f)
dimension h(i),x(j)
real h,x
integer i,j,k,l
logical f
s=h(1)
f=.true.
k=1
do while (k<=i)
l=1
do while (l<=j)
if (h(k)==x(l)) then
f=.false.
end if
l=l+1
end do
k=k+1
end do
end

program sovpadenie
dimension h(6),x(6)
real h,x
logical f
write (*,*) 'vvedite h(10)'
read (*,*) h
write (*,*) 'vvedite x(6)'
read (*,*) x
call sovp(h,5,x,6,f)
write (*,*) f
end