turbo pascal 6 programming?

can some one please tell me hw to get the result of the program below in a whole number form and nt in a form of a real number e.g 2.4000000E+02

{program to calculate cost of computers}

program costcalculator;

uses crt;

var

com:integer;

cost:real;

begin

writeln('enter the number of computer to be purchased');

readln(com);

if com<50 then cost:= 1250*com

else cost:= 62500+(com-50)*1100;

writeln('for the purchase of the computers it will cost you$',cost);

end.