print *,"hello world"
	stop	
	end
1
	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
2
	real a,b,c                
	open(10,file="test3.in") 
	open(11,file="test3.out")
	read(10,*) a,b
	c=a+b
	print *,"a+b=",c
	write(11,*) c
	stop
	end	
3
	real v(7),sum
	integer n
	open(10,file="test4.in")
	read(10,*) n
	read(10,*)(v(i),i=1,n)
	sum=0.
	do i=1,n
	sum=sum+v(i)
	enddo
	print*,"sum=",sum,"keskm.=", sum/n
	stop
	end
4
	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	
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
6
	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
7
	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