C	Program "DZIELENIE" iloraz liczb "A" i "B"
C
C	/// Deklaracja zmiennych ///
C
      Real A, B, C
C
C   /// Nazwa programu ///
C
	  WRITE(*,*) 'Dzielenie'
C
C	/// Wprowadzenie danych ///
C
      WRITE(*,*) 'Podaj liczb A ='
      READ(*,*) A
88    WRITE(*,*) 'Podaj liczb B ='
      READ(*,*) B
C
C	/// Algorytm zadania ///
C
	  IF(B.EQ.0)THEN
      	WRITE(*,*) 'niemona dzieli przez zero [ENTER]'
        Pause
        
        GO TO 88
      ELSE
        C=A/B
        WRITE(*,*) 'A / B =',C
      END IF 
      Pause
      END

-------------------------------------------------------------------

C	Program "f. kwadratowa" pierwiastki funkcji "ax^2+bx+c"
C
C	/// Deklaracja zmiennych ///
C
      Real A, B, C, D, X1, X2, X0, P
C
C   /// Nazwa programu ///
C
	  WRITE(*,*) 'pierwiastki f. kwadratowej'
C
C	/// Wprowadzenie danych ///
C
      WRITE(*,*) 'Podaj wspóczynnik A ='
      READ(*,*) A
      WRITE(*,*) 'Podaj wspóczynnik B ='
      READ(*,*) B
      WRITE(*,*) 'Podaj wspóczynnik C ='
      READ(*,*) C
C
C	/// Algorytm zadania ///
C
	  D=B**2-4*A*C
      If(D.GT.0)THEN
        WRITE(*,*) 'Delta =',D,' > 0'
        P=SQRT(D)
        X1=((-B)-P)/(2*A)
        X2=((-B)+P)/(2*A)
        WRITE(*,*) 'X1 = ', X1
        WRITE(*,*) 'X2 = ', X2
      ELSE
        If(D.EQ.0)THEN
       		WRITE(*,*) 'Delta = O'
        	X0=(-B)/(2*A)
        	WRITE(*,*) 'X0 = ', X0
        ELSE
            WRITE(*,*) 'Delta < O - brak rozwizania'
      	END IF
      END IF
      Pause
      END

-------------------------------------------------------------------

	Program "Roznica" suzacy do obliczanie roznicy dwoch licz "A" i "B"
C	przedstawiajac w wynik w postaci "C=A-B" jeli A>B lub "C=B-A" B>A"
C
C	/// Deklaracja zmiennych ///
C
      Real A, B, C
C
C   /// Nazwa programu ///
C
	  WRITE(*,*) 'Program "Roznica" liczb "A" i "B"'
C
C	/// Wprowadzenie danych ///
C
      WRITE(*,*) 'Podaj pierwsza liczbe A ='
      READ(*,*) A
      WRITE(*,*) 'Podaj druga liczbe B ='
      READ(*,*) B
C
C	/// Algorytm zadania ///
C
	  IF(A.GE.B) THEN
       	C=A-B
        WRITE(*,*) 'C = A - B =', C
      ELSE
        C=B-A
        WRITE(*,*) 'C = B - A =', C
      END IF 
      Pause
      END

-------------------------------------------------------------------

	Program "SUMA" sucy do obliczanie sumy dwóch licz "A" i "B"
C	przedstawiajc w wynik w postaci "C=A+B"
C
C	/// Deklaracja zmiennych ///
C
      Real A, B, C
C
C   /// Nazwa programu ///
C
	  WRITE(*,*) 'Program "Suma" dodajcy do siebie liczby "A" i "B"'
C
C	/// Wprowadzenie danych ///
C
      WRITE(*,*) 'Podaj pierwszy skadnik sumy A ='
      READ(*,*) A
      WRITE(*,*) 'Podaj pdrugi skadnik sumy B ='
      READ(*,*) B
C
C	/// Dodawanie wartoci ///
C
	  C=A+B
      WRITE(*,*) 'C = A + B =', C
      Pause
      END

-------------------------------------------------------------------------

	Program "Tabliczka mnoenia" podnoszacy do 2, 3, 4 i 5 potegi
C   liczby z zakresu A i B"
C
C	/// Deklaracja zmiennych ///
C
      Integer A, B, I
C
C   /// Nazwa programu ///
C
	  WRITE(*,*) 'Tabliczka mnozenia'
C
C	/// Wprowadzenie danych ///
C
      WRITE(*,*) 'A i B liczbami cakowitymi'
      WRITE(*,*) 'Podaj dolny zakres A ='
      READ(*,*) A
      WRITE(*,*) 'Podaj gorny zakres B ='
      READ(*,*) B
C
C	/// Algorytm zadania ///
C
	  Do I=A,B
      	WRITE(*,*) 'Podstawa liczby I = ', I
        WRITE(*,*) 'I^2 = ', I**2
        WRITE(*,*) 'I^3 = ', I**3
        WRITE(*,*) 'I^4 = ', I**4
        WRITE(*,*) 'I^5 = ', I**5
      END DO 
      Pause
      END