Hàm chia số lớn( lập trình pascal nghe)

uses crt;

var a,b: int64;

function ch(x,y: int64) of real;

begin

ch:=x/y;

end;

begin

clrscr;

write (‘nhap so bi chia: ‘);   readln (a);

write (‘nhap so chia: ‘);  readln (b);

writeln (a,’/’,b,’= ‘,ch(a,b));

readln;

end.

ĐÂY Ạ