Viết chương trình nhập vào n in ra màn hình các số nguyên tố nhỏ hơn và tổng các số nguyên tố (pascal)

uses crt;

var n,i,kt,j,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

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

if kt=0 then begin

write(i:4);

t:=t+i;

end;

end;

writeln;

writeln('tong cac so nguyen to nho hon hoac bang ',n,' la: ',t);

readln;

end.

writeln(' sốc nguyên tố nhỏ hơn hoặc bằng ',n,' là: ');

for i:=2 to n tố

begin

kt:=0;

for j:=2 to i-1 do

if kt=0 then write(i:4);

end;

readln;

end.

Chúc bạn học tốtt33 cho mình xin 5 sao và ctlhn ạ mình cảm ơnn

Nếu có gì sai mong bạn thông cảm:))