program cisnhydr; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this }; var d:real; h:real; CONST G=10; begin writeln('Podaj gestosc substancji (kg/m3)'); readln(d); writeln('Podaj wysokosc slupa substancji (m)'); readln(h); writeln('Cisnienie hydrostatyczne wynosi (Pa) ',d*G*h); writeln('60=',60.0); writeln('60=',60.0:4:2); end.