delphi中的小问题，麻烦帮忙解决下

Question

delphi中
a,b,x:integer;
y:real;
 begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  x:=hcf(a,b); /*x是整形*/
  y:=a*b/x;
  edit3.Text:=inttostr(x);
  edit4.Text:=floattostr(y);
y为什么会是real型而不是整形，整数除以整数也可以是整数的啊，而且这个代码无法正常运行
谢谢

Answer 1

"/"操作结果本身就是real型，,不管能不能整除,已经不在是整数了。
"div" 想得到整数用 div 。