--Witaj świecie!
BEGIN
	DBMS_OUTPUT.PUT_LINE("Hello World!");
END;


--Deklaracja zmiennych
DECLARE
	v_x NUMBER;
BEGIN
	v_x := 1;
	DBMS_OUTPUT.PUT_LINE(v_x);
	v_x := v_x+4;
	DBMS_OUTPUT.PUT_LINE(v_x);
END;


--Procedura
CREATE OR REPLACE PROCEDURE przykladowa(zmienna IN VARCHAR2)
IS
BEGIN
	NULL
	--NULL
	/*
	JAKIS TAM DLUGI KOMENTARZ
	EHEHHE
	*/
END;


--Czysty SQL
CREATE TABLE student (
	pesel INT unique,
	imie VARCHAR(255),
	nazwisko VARCHAR(255),
	miasto VARCHAR(255),
	kod_pocztowy VARCHAR(255)
);
INSERT

INSERT INTO student (pesel,imie,nazwisko,miasto,kod_pocztowy)
VALUES (1, 'imie1', 'nazwisko1', 'miasto1', 'kod_pocztowy1');

INSERT INTO student (pesel,imie,nazwisko,miasto,kod_pocztowy)
VALUES (1, 'imie1', 'nazwisko1', 'miasto1', 'kod_pocztowy1')



--Procedura
CREATE OR REPLACE PROCEDURE przykladowa (a IN NUMBER, b IN NUMBER, c IN NUMBER )
IS
	p NUMBER;
	wynik NUMBER;
BEGIN
	IF a+b>c or a+c>b or b+c>a THEN
		DBMS_OUTPUT.PUT_LINE('Mozna zbudowac trojkat!');
		p:=(a+b+c)/2;
		wynik:=SQRT(p*(p-a)*(p-b)*(p-c));
		DBMS_OUTPUT.PUT_LINE('Pole ='||wynik);
	ELSE
		DBMS_OUTPUT.PUT_LINE('Nie mozna zbudowac trojkata!');
	END IF;
END;

BEGIN
	przykladowa(3,5,6);
END;