Tìm lỗi sai trong bt Pascal

[nhavanbecon]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các bạn giúp m tìm lỗi sai trong bt pascal này với,m lập trình in số ngto trong mảng mà nó ghi lỗi,không chạy được chương trình.

 

[stardustdragon]

Các bạn giúp m tìm lỗi sai trong bt pascal này với,m lập trình in số ngto trong mảng mà nó ghi lỗi,không chạy được chương trình.

uses crt;
var a:array[1..100] of integer;
    ngto:boolean;
    n,i:integer;
begin
 clrscr;
 writeln('Nhap n');readln(n);
 write('Nhap phan tu thu',i,'la');
 readln(a[i]);
 ngto:=false;
 if n<2 then exit;
 for i:=2 to round(sqrt(n)) do
  begin
   if n mod i = 0 then exit;
   ngto:=false;
  end;
 writeln('cac phan tu la so nguyen to la');
 for i:=1 to n do
  if [COLOR="Red"]ngto<a[i]>[/COLOR] then writeln(a[i]);
 readln
end.

Sai o cho boi do day
Ban viet sai cong thuc , bien ngto kieu boolean lam sao viet dc nhu vay