program stezenia;
uses crt;
var
Cm,d,n1,n2,ms,mr,mrr,Cmol,Cp,M,x1,x2:real;
const V=1;
begin
ClrScr;
writeln('Podaj st©ľenie molowe:');
readln(Cm);
Cm:=Cm;
while Cm<0 do
begin
writeln;
writeln('St©ľenie nie moľe by† ujemne! Podaj poprawnĄ warto†:');
readln(Cm);
Cm:=Cm;
end;
writeln;
writeln('Podaj g©sto† w jednostce [g/dm^3]:');
read(d);
d:=d;
while d<0 do
begin
writeln;
writeln('Gesto† nie moľe by† ujemna! Podaj poprawnĄ warto†: ');
readln(d);
d:=d;
end;
writeln;
writeln('podaj mas© molowĄ:');
read(M);
M:=M;
while M<0 do
begin
writeln;
writeln('Masa molowa nie moľe by† ujemna! Podaj poprawnĄ warto†: ');
readln(M);
M:=M;
end;
writeln;
n1:=Cm*V;
writeln;
writeln('liczba moli wynosi: ', n1:3:3,'[mol]');
writeln;
ms:=n1*M;
writeln('masa substancji wynosi: ', ms:3:2,'[g]');
writeln;
Cp:=(Cm*M*100/d);
if Cp>100 then
writeln('Masa substancji jest wieksza od masy roztworu! Wprowadziles bledne dane.')
else
begin
writeln('stezenie procentowe wynosi: ', Cp:3:2,'[%]');
writeln;
mrr:=(ms*100/Cp);
writeln('masa roztworu wynosi: ', mrr:3:2,'[g]');
writeln;
mr:=mrr-ms;
writeln('masa rozpuszczalnika wynosi: ', mr:3:2,'[g]');
writeln;
Cmol:=n1/mr;
writeln('stezenie molalne wynosi: ', Cmol:3:4,'[mol/kg]');
writeln;
n2:=mr/18;
x1:=(n1/(n1+n2));
writeln('ulamek molowy substancji wynosi: ', x1:3:2);
writeln;
x2:=1-x1;
writeln('ulamek molowy rozpuszczalnika wynosi: ', x2:3:2);
readln;
writeln;
writeln('stezenie molowe to: ',Cm:4:3);
writeln;
writeln('gestosc to: ',d:2:4);
writeln;
writeln('masa molowa wynosi: ',M:4:2);
end ;
readln;
end.