[cotseec]

Код:

const
    k:integer=5;
var
    i:integer;
    f:single;
begin
    f:=(k/1);//- float
    i:=Round(f);//-integer
end;