proc import datafile="C:\Projekt\Countries.csv" out=countries dbms=csv replace;
    getnames=yes;
run;
proc contents data=countries;
run;
proc import datafile="C:\Projekt\Olimpics1.csv" out=olimpics dbms=csv replace;
    getnames=yes;
run;
proc contents data=olimpics;
run;
proc import datafile="C:\Projekt\Olimpics2.csv" out=olimpics2 dbms=csv replace;
    getnames=yes;
run;
proc contents data=olimpics2;
run;
data olimpics;
	set olimpics2;
run;
proc import datafile="C:\Projekt\Olimpics3.csv" out=olimpics3 dbms=csv replace;
    getnames=yes;
run;
proc contents data=olimpics3;
run;
data olimpics;
	set olimpics3;
run;

proc sql;
	create table sql_final as
	select L.*, R.*
	from olimpics as L
	LEFT JOIN countries as R
	on L.country = R.country;
quit;

data reduced; set sql_final;
	if (Continent = "EU" or Continent = "NA") and Year > 2000;
run;

data reduced; set reduced;
	KEEP Athlete Age Gold_Medals Silver_Medals Bronze_Medals Continent;
run;

proc sort data = reduced;
	by Continent;
run;

proc print data = reduced;
	by Continent;
	sum Gold_Medals;
run;

proc print data=reduced; run;