****************************************
1
	parameter n=4
	real a(n,n),b(n,n),c(n,n)
	open(10,file="test7.in")
	open(20,file="test7.out")
	read (10,*) a,b				
	do i=1,n
	do j=1,n
	sum=0.
	do k=1,n
	sum=sum+a(i,k)*b(k,j)
	enddo
	c(i,j)=sum
	enddo
	enddo
	write (20,100) c
100	format(4F10.4)
	stop
	end
1.1     
*************    
	parameter n=4
	real a(n,n),b(n,n),c(n,n)
	open(10,file="test7.in")
	open(20,file="test7.out")
	read (10,*) a,b
	call mult(n,a,b,c)
	write (20,100) c
100	format(4F10.4)
	stop
	end

	subroutine mult(n,a,b,c)
	real a(n,n),b(n,n),c(n,n)
	do i=1,n
	do j=1,n
	sum=0.
	do k=1,n
	sum=sum+a(i,k)*b(k,j)
	enddo
	c(i,j)=sum
	enddo
	enddo
	return
	end    
***************************************************************
2
	real a(10)          massivi nimi(ELEMENTIDE ARV) ridade arv veergude arv
	integer n
	open(10,file="test5.in")
	Read(10,*) n
	Read(10,*) (A(i),i=1,n)
	amax = -1.E+32
	amin = 1.E+32
	do i = 1,n 
	if(a(i).gt.amax)then
	amax=a(i)                jälgima,vaatlema
	endif
	if(a(i).lt.amin)then
	amin=a(i)
	endif
	enddo
	print*,"max=",amax,"min=",amin
	stop
	end	

**************************************************************
3
	real a,b,c               tüübid
	read *,a,b
	c=a+b                    võrdlustehted  aritmeetikatehted
	print *,"a+b=",c         * korrutamine    + liitmine
	stop                     / jagamine       - lahutamine 
	end
3.1
	real a,b,c
	red *,a,b                ühtima
	call sum(a,b,c)
	print *,c
	stop
	end

	subroutine sum(a,b,c)
	real a,b,c
	c=a+b
	return
	end
***********************************************	
4
	real v(10),sum
	integer n
	open(10,file="test4.in")
	read(10,*) n
	read(10,*) v
	sum=0.
	do i=1,n
	sum=sum+v(i)
	enddo
	print*,"sum=",sum,"keskm.=", sum/n
	stop
	end
4.1
	real v(10),sum
	integer n
	open(10,file="test4.in")
	read(10,*) n
	read(10,*) v
	call kesk(n,v)
	print*,"sum=",sum,"keskm.=", sum/n
	stop
	end

	subroutine kesk(n,a)
	real a(n)
	sum=0.
	do i=1,n
	sum=sum+a(i)
	enddo
	return
	end
	
***************************************************
5
	integer n,i,fakt
	read *,n
	if(n.lt.0)then        valikulause, valiju tingimuse tõde vale
	print *,"n on neg."
	stop
	endif
	if(n.eq.0)then
	fakt=1
	print *,"",fakt
	stop  
	endif
	if(n.lt.0)then
	print *,"n on neg."
	return
	endif
	fakt=1

	do i=1,n
	fakt=fakt*i
	enddo

	print *,"fakt=",fakt
	stop
	end

	real a,b,c
	read *,a,b,c	
	diskr= b*b-4.*a*c
	
	if(deskr.lt.0)then
	x1=(-b+sqrt(-deskr))/(2.*a)
	x2=(-b-sqrt(-deskr))/(2.*a)
	print *,"root on complex = ",x1,"+i",x2,x1,"-i",x2
	stop
	endif

	if(deskr.eq.0)then
	x1=-b/(2.*a)
	print*,"root on=",x1
	stop
	endif
	
	if(deskr.gt.0)then
	x1=(-b+sqrt(deskr))/(2.*a)
	x2=(-b-sqrt(deskr))/(2.*a)
	print*,"root on=",x1,"  ",x2
	stop
	endif
	
	end
	
	
****************************************************************
6
	read *,a,b,n
	dx=(b-a)/n
	
	do i=1,n
	x=a+(i-1)*dx
	f=x**2
	sum=sum+f*dx
	enddo
	
	print*,sum
	stop
	end