out pp;
on rounded;

% --- s1 przekroj rury skimera. [m**2] ----
d:=11/(100);
s1:=pi*d**2/4;
% --- s1 przekroj rury odprowadz. [m**2] ----
dod:=2.54/(2*100);
s2:=pi*dod**2/4;

% --- dh roznica poziomow [m] ----
v2:=2/3600;
gg:=10;
dh:=((s2/s1)**2 - 1 )*v2**2/(2*gg);
%-------- wzor torricellego -----------
dh:=(v2**2)/(2*gg);

(s2/s1)**2;

shut pp;
bye;
end;