không bị lỗi bạn nhé vì cô không sài bất kì lệnh nào trong thư viện uses crt bạn nên tìm hiểu về thư viện trong pascal thì bạn hiểu thôi

uses crt;

var n,i,m,max:integer;

function kt(n:integer):integer;

var j,k:integer

begin

k:=0;

for j:=2 to n do

if (n mod j)=0 then k:=k+1;

kt:=k+1;

end;

begin

readln(n);

if n=1 then write(1)

else

begin

max:=kt(2);

for m:=3 to n do

if max<kt(m) then max:=kt(m);

write(max);

end;

end.

uses crt;

var n,i,a1:integer;

a:array[1..100] of integer;

begin

writeln('nhap n'); readln(n);

writeln('nhap a'); readln(a1);

for i:=1 to n do

begin

readln(a[i]);

if (a[i]=a1) then

begin

write(' so a co xuat hien trong day');

break;

end;

if (i<n) then  continue;

writeln('Khong co so a trong day');

end;

readln;

end.

uses crt;

var n,i,tong:integer;

a:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

tong:=tong+a[i];

end;

write(tong);

readln;

end.