ReadLn(a,b,c,d);
 temp:=max(a,b);
 temp2:=max(c,d);
 najw:=max(temp,temp2); { najwieksza liczba }
 temp3:=min(a,b);
 temp4:=min(c,d);
 najm:=min(temp3,temp4); { najmniejsza liczba }

 trzecia:=min(temp,temp2);

 druga:=max(temp3,temp4);