[declare
      Konstansok
      Változók
      Kurzor
      Kivétel
   ]
   begin
       pl/sql utasítások
   [ exception kezelés]
   end;

   begin
       dbms_output.put_line('hello world');
   end;

   DECLARE
      s number;
   BEGIN
      s := (5+3);
      dbms_output.put_line(TO_CHAR(s));
   END;

   declare
      a number default 10;
      b number default 20;
      s number;
   begin
      s:= a*b;
      dbms_output.put_line(TO_CHAR(s));
   end;

   declare
      t VARCHAR(20) := 'Hello World';
   begin
      SELECT UPPER(t) INTO t FROM dual;
      dbms_output.put_line((t));
   
      SELECT LOWER(t) INTO t FROM dual;
      dbms_output.put_line((t));
   
      SELECT INITCAP(t) INTO t FROM dual;
      dbms_output.put_line((t));
   end;                

   DECLARE
      t1 VARCHAR(10) := 'Hello ';
      t2 VARCHAR(10) := 'World!';
      t VARCHAR(20) := '';
   BEGIN
      SELECT CONCAT(t1,t2) INTO t FROM dual;
      dbms_output.put_line(t);
   END;

   DECLARE
      d DATE;
   BEGIN
      SELECT sysdate INTO d FROM dual;
      dbms_output.put_line(d);
   END;

   DECLARE
      t VARCHAR(30);
   BEGIN
      SELECT TO_DATE(SYSDATE,'YYYY-MM-DD')INTO t FROM dual;
      dbms_output.put_line(t);
   
      SELECT TO_DATE(SYSDATE,'DD-MM-YYYY')INTO t FROM dual;
      dbms_output.put_line(t);
   END;

   DECLARE
      name vasarlo.nev%type;
   BEGIN
      SELECT nev INTO name FROM vasarlo WHERE id = 11;
      dbms_output.put_line(name);
   END;

   DECLARE
      id vasarlo.id%type;
      name vasarlo.nev%type;
      mail vasarlo.mail%type;
      mobil vasarlo.mobil%type;
      address vasarlo.cim%type;
      aktiv vasarlo.aktiv%type;
   BEGIN
      SELECT id,nev,mail,mobil,cim,aktiv INTO id,name,mail,mobil,address,aktiv FROM vasarlo WHERE id = 11;
      dbms_output.put_line(id|| ' '|| name||' '||mail||' '||mobil||' '||address||' '||aktiv);
   END;

   DECLARE
      row vasarlo%rowtype;
   BEGIN
      SELECT * INTO row FROM vasarlo WHERE id = 11;
      dbms_output.put_line(row.id|| ' '|| row.nev||' '||row.mail||' '||row.mobil||' '||row.cim||' '||row.aktiv);
   END;

   IF feltetel THEN
      utasitas
   [ ELSIF feltetel THEN
      utasitas]
   [ELSE
      utasitas]
   END IF;

   DECLARE
      a number := 10;
      b number := 81;
   BEGIN
      IF a > b THEN
        dbms_output.put_line('Az "a" szam a nagyobb!!!');
      ELSE
        dbms_output.put_line('A "b" szam a nagyobb!!!');
      END IF;
   END;

   DECLARE
      minimum number := 10;
      maximum number := 100;
      ertek number := 50;
   BEGIN
      IF ertek < minimum THEN
        dbms_output.put_line('Tul kicsi!!!');
      ELSIF maximum < ertek THEN
        dbms_output.put_line('Tul nagy!!!');
      ELSE
        dbms_output.put_line('OK!!!');
      END IF;
   END;

   CASE
           WHEN  feltetel THEN utasitasok
           WHEN  feltetel THEN utasitasok
           ...
           ELSE utasitasok
   END CASE;

   DECLARE
      beosztas VARCHAR(10) := 'coder';
   BEGIN
     CASE
       WHEN beosztas = 'dev' THEN dbms_output.put_line('Fejleszto, tervezo');
       WHEN beosztas = 'root' THEN dbms_output.put_line('Rendszergazda (UNIX/LINUX)');
       WHEN beosztas = 'admin' THEN dbms_output.put_line('Rendszergazda (Windows)');
       WHEN beosztas = 'dba' THEN dbms_output.put_line('Adatbazis Adminisztrator');
       WHEN beosztas = 'coder' THEN dbms_output.put_line('Programozo');
       WHEN beosztas = 'sec' THEN dbms_output.put_line('Adminisztrativ');
       ELSE dbms_output.put_line('egyedi munkakor');
     END CASE;
   END;

   DECLARE
     a number := 3;
     b number := 4;
     c number := 5;
   BEGIN
     IF (a > b+c) or (b > a+c) or (c > a+b) THEN
       dbms_output.put_line('A '||a||' '||b||' '||c||' szamharmas nem alkot haromszoget!!!');
     ELSE
       dbms_output.put_line('A '||a||' '||b||' '||c||' szamharmas haromszoget alkot!!!');
     END IF;
   END;

   DECLARE
      a number := 3;
      b number := 4;
      c number := 5;
      s number;
      t number;
   BEGIN
      IF (a > b+c) or (b > a+c) or (c > a+b) THEN
        dbms_output.put_line('A '||a||' '||b||' '||c||' szamharmas nem alkot haromszoget!!!');
      ELSE
        s := (a+b+c)/2;
        t := SQRT(s*(s-a)*(s-b)*(s-c));
        dbms_output.put_line('A '||a||' '||b||' '||c||' szamharmas haromszoget alkot, aminek a terulete '||t||'!!!');
      END IF;
   END;

   LOOP
      utasitasok;
   END LOOP;

   WHILE feltetel  LOOP
      utasitasok
   END LOOP;

   FOR i IN lista LOOP
      utasitasok
   END LOOP;

   DECLARE
      n number := 10;
   BEGIN
      FOR i IN 1..n LOOP
        dbms_output.put_line(TO_CHAR(i));
      END LOOP;
   END;

   DECLARE
      n number := 10;
      f0 number := 0; -- f_{n-2}
      f1 number := 1; -- f_{n-1}
      fa number := 2; -- f_{n}
   BEGIN
      FOR i IN 1..n LOOP
        fa := f0 + f1;
        f0 := f1;
        f1 := fa;
        dbms_output.put_line(TO_CHAR(fa));
      END LOOP;
   END;

   DECLARE
     n number := 10;
     gyok number;
     gyoke boolean := true;
   BEGIN
     gyok := ROUND(SQRT(n));
     FOR i IN 2..gyok LOOP
       IF (mod(n,i) = 0) and (gyoke = true) THEN
         gyoke := false;
         dbms_output.put_line(n||' oszthato '||i||'-vel');
       END IF;
     END LOOP;
   
     IF gyoke = true THEN
        dbms_output.put_line(n||' prim szam!!!');
     ELSE
        dbms_output.put_line(n||' nem prim szam!!!');
     END IF;
   END;

   INVALID_CURSOR
   CURSOR_ALREADY_OPEN
   ZERO_DIVIDE

   BEGIN
      dbms_output.put_line(4/0);
   END;

   BEGIN
      dbms_output.put_line(4/0);
   EXCEPTION
      WHEN ZERO_DIVIDE THEN
      dbms_output.put_line('0-val nem lehet osztani!!!');
   END;

   DECLARE
      n number := 10;
      paros EXCEPTION;
   BEGIN
      FOR i IN  1..n LOOP
        IF mod(i,2) = 0 THEN 
          RAISE paros;
        END IF;
        dbms_output.put_line(i);
      END LOOP;
   EXCEPTION
      WHEN paros THEN
       dbms_output.put_line('paros');
   END;

   DECLARE
      CURSOR c1 IS SELECT * FROM VASARLO;
   BEGIN
     OPEN c1;
     OPEN c1;
   
   EXCEPTION
     WHEN CURSOR_ALREADY_OPEN THEN
      dbms_output.put_line('A CURSOR mar meg van nyitva');
   END;