--1. Napisz program, który poprosi o podanie imienia i nazwiska (zarówno imię jak
  -- i nazwisko powinno być przechowywane w osobnych zmiennych), a następnie
  -- wyświetli na ekranie napis: Witaj imię nazwisko!
  DECLARE
      imie VARCHAR(20);
      nazwisko VARCHAR(20);
  BEGIN
      imie := :imie_tmp;
      nazwisko := :nazwisko_tmp;
      DBMS_OUTPUT.PUT_LINE('Witaj '||imie||' '||nazwisko||'!');
  END;

-- 2.Napisz program, który dla podanego przez użytkownika n obliczy wartość wyrażenia
  -- n! = 1 * 2 * 3 * ... * n (silnię).
  DECLARE
    suma NUMBER;
    n NUMBER;
  BEGIN
    suma := 1;
    n := :n;
    FOR x IN 1..n
    LOOP
       suma := suma * x;
    END LOOP;
    DBMS_OUTPUT.PUT_LINE('SILNIA '||suma);
  END;

-- 3. Napisz program, który dla podanej wartości r (promień) obliczy pole i obwód
  -- zadanego koła. Wartość PI zadeklaruj jako wartość stałą równą 3,1416.
  DECLARE
    pi CONSTANT NUMBER := 3.1416;
    r NUMBER;
    pole NUMBER;
    obwod NUMBER;
  BEGIN
    r := :r;
    pole := r*r*pi;
    obwod := 2*pi*r;
    DBMS_OUTPUT.PUT_LINE('Obwod: '||obwod);
    DBMS_OUTPUT.PUT_LINE('Pole: '||pole);
  END;

-- 4. Napisz program, który przy podanych dwóch zmiennych podniesie wartość pierwszej
  -- zmiennej do potęgi równej wartości drugiej zmiennej (bez użycia funkcji power).
  -- Program powinien działać dla liczb z zakresu od 1 do 10. W przeciwnym przypadku
  -- powinien wypisać komunikat informujący, która liczba (podstawa lub wykładnik)
  -- przekracza zakres.
  -- Proszę podać wartość dla podstawy:
  -- Proszę podać wartość dla wykładnika:
  -- wykładnik wynosi
  -- podstawa wynosi
  -- Wynik:
  DECLARE
    x NUMBER := :x;
    y NUMBER := :y;
    i NUMBER := 1;
    tmp NUMBER := 1;
  BEGIN
    IF x < 1 OR x > 10 OR x IS NULL THEN
      DBMS_OUTPUT.PUT_LINE('Bledna podstawa');
    ELSIF y < 1 OR y > 10 OR y IS NULL THEN
      DBMS_OUTPUT.PUT_LINE('Bledny wykladnik');
    ELSE
      DBMS_OUTPUT.PUT_LINE('Podstawa: '||x);
      DBMS_OUTPUT.PUT_LINE('Wykladnik: '||y);
      LOOP
        tmp := tmp * x;
        i := i + 1;
        EXIT WHEN i > y;
      END LOOP;
      DBMS_OUTPUT.PUT_LINE('Wynik: '||tmp);
    END IF;
  END;

-- 5.Napisz program, który dla podanej przez użytkownika liczby wyrazów szeregu obliczy
  -- liczbę e (liczba Eulera) ze wzoru:
  -- Podaj liczbe wyrazow szeregu:
  -- Liczba e wynosi:

-- 6. Napisz program, który będzie pracował do momentu, gdy nastanie najbliższa sekunda
  -- aktualnego czasu systemowego będąca wielokrotnością liczby 15 (czyli 0, 15, 30, 45).
  -- Przed zakończeniem program powinien wypisać tekst: Jest godzina HH:MM:SS.
  -- Koncze działanie.

-- 7. Napisz anonimowy blok PL/SQL, który wypisze ile dni minęło od twojej daty
  -- urodzenia. Data ma być podawana z klawiatury. Wprowadź obsługę błędów gdy
  -- zostanie podana nieprawidłowa data – kontroluj ilość dni w miesiącu oraz miesięcy w roku.