Guide al Turbo Pascal

Program galleggiamento;
USES PRINTER;
var volumedelcorpo:real;
pesocorpo:real;
spintadiarchimede:real;
const densitamercurio = 13600;
costantegravitazionale=9.8;
Begin
writeln ('scrivi valore del volume del corpo, valori in m cubi');
readln (volumedelcorpo);
spintadiarchimede:= densitamercurio*costantegravitazionale *volumedelcorpo;
writeln ('la spinta di archimede corrisponde a',spintadiarchimede:5:2,'N');
writeln ('scrivi valore del peso, valori in N');
readln (pesocorpo);
if pesocorpo-spintadiarchimede>0 then writeln('il corpo non galleggia')
else writeln ('il corpo galleggia');
textcolor (spintadiarchimede);
readln;
End.