làm theo dạng tệp pascal: Nhập 2 số tự nhiên n, m tính giai thừa số lớn hơn Xác định số nhỏ có phải số nguyên tố hay không
Mọi người ơi, mình cảm thấy loay hoay quá, không biết phải làm sao. Ai có thể chỉ dẫn mình cách giải quyết không?

const fi='tep.inp';

fo='tep.out';

var f1,f2:text;

m,n,a:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,m,n);

a:=m;

if a>n then a:=n;

kt:=0;

for i:=2 to trunc(sqrt(a)) do 

  if a mod i=0 then kt:=1;

if (kt=0) and (a>1) then writeln(f2,'so nho hon la so nguyen to')

else writeln(f2,'so nho hon khong la so nguyen to');

close(f1);

close(f2);

end.