TIM SO NGUYEN TO TRONG PASCAL

program timsonguyento;
uses crt;
var a:array[1..100] of integer;
n,j,i,dnt:byte;snt:boolean;
begin
clrscr;
write(`nhap n`);
readln(n);
for i:= 1 to n do begin
write(`nhap so thu`,i,`:`);
readln(a[i]);
end;
dnt:=0;
for i:=1 to n do begin
snt:=true;
if a[i]<2 then snt:=false;
if a[i]>=2 then for j:=2 to a[i]-1 do if a[i] mod j =0 then snt:=false;
if snt=true then dnt:=dnt+1;
end;
write(`kq`,dnt:10);
readln;
end.

Có sai các bạn đừng mắng nha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


Người viết:lớp 11A5 QT