Переделать дробь в натуральное число

[pro100-delphi]

var
x:integet;
y:real;
{и так далее}
...
x:=int(y);

Выдаёт ошибку тут - x:=int(y);
Чё нет так? Заранее спс

[anGeee]

Используйте фунцкию trunc для отбрасывания дробной части числа.

x:=trunc(y);

[Denager]

или
Round(x:real):integer;