*zad4;
data LAB1.AKCJE1;
        set LAB1.AKCJE;
run;

PROC SORT DATA=LAB1.AKCJE OUT=LAB1.AKCJE1;
     BY spolka data;
run;
data LAB1.AKCJE1;
        set LAB1.AKCJE1;
        format ZMIANA percent10.9;
        ZMIANA = (lag1(kurs_zamkn)-kurs_otw)/lag1(kurs_zamkn);
        ROZNICA = kurs_max - kurs_min;
        WEEK = week(data,'u');
run;