data mokesciai_1;
input data $1-6 tel 10-16 dujos 20-25 elektra 30-35;
cards;
200109     95.45    64.85     88.25
200110     1.19     54.80     68.45
200111     89.05    65.12     90.50
200112     90.10    49.58     11.45
200201     1.15     75.12     94.54
run;

filename pat'C:\Users\kargre1\Desktop\patarnav.dat';
data mokesciai1;
infile pat;
input data $1-6 tel 10-16 dujos 20-25 elektra 30-35;
run;

data mok; /*mokesciu failas*/
set mokesciai_1 mokesciai1; /*komanda sujungianti du failus*/
viso = tel+dujos+elektra;

met=substr(data,1,4);
men=substr(data,5,2);
run;
proc print data=mok;
var data viso;
sum viso;
run;

proc sort data=mok;
by met men;
run;

data m2001;
set mok;/*nurodom is kur imsim duomenis*/
if met='2001';
run;

proc print data=m2001;
var data tel dujos elektra viso met men;
run;

data msausis;
set mok;
if men='01';
run;

proc print data=msausis;
var data tel dujos elektra viso met men;
run;

proc means data=mok n mean max min var;
var viso;
run;

proc gchart data=mok;
vbar dujos/
group=met
subgroup=men;
run;

filename vas'C:\Users\kargre1\Desktop\vasaris.dat';
data skrydziai;
infile vas;
input reisas 1-6 data $7-16 miestas $17-20 vietu_sk 24-27 verslokl 33-35 pirmakl 41-43 antrakl 50-52 atstumas 56-59;
run;

data kopenh;
set skrydziai;
if miestas='cph';
laisva = vietu_sk-verslokl-pirmakl-antrakl;
uzimta = vietu_sk-laisva;
if vietu_sk*0.4<=laisva;
run;

proc print data= kopenh split='*';
var reisas data miestas vietu_sk verslokl pirmakl antrakl atstumas;
label reisas = "kryptis";
run;

proc gchart data=skrydziai;
pie miestas;
pattern1 color=pink value=solid;
title 'Skraidom';
run;