Uses crt;

var i,n,k,u,f,y: longint;

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

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

writeln(a[i]);

for i:=1 to n do if(a[i]<0) then k:=k+a[i];

for i:=1 to n do if(a[i]>0) then u:=u+a[i];

for i:=1 to n do if(a[i] mod 2<>0) then f:=f+a[i];

for i:=1 to n do if(a[i] mod 2=0) then y:=y+a[i];

writeln('Tong cac so am la: ',k);

writeln('Tong cac so khong am: ',u);

writeln('Tong cac so le la: ',f);

writeln('Tong cac so chan la: ',y);

readln;

end.

Uses crt;

var i,n,k: integer;

begin clrscr;

readln(n);

for i:=1 to n do k:=k+1/i;

writeln(k);

readln;

end.

program SoNguyenTo;

var  

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

      n, i, j: integer;  

      snt: boolean;

begin

      write('Nhap so phan tu: ');  

      readln(n);  

      for i := 1 to n do  

      begin    

            write('Nhap phan tu A[', i, ']: ');    

            readln(A[i]);  

      end;   

      writeln('Cac so nguyen to trong day:');  

      for i := 1 to n do  

      begin    

            snt := true;     

            if A[i] < 2 then       

                  snt := false    

            else      

                  for j := 2 to round(sqrt(A[i])) do         

                        if A[i] mod j = 0 then

                        begin          

                              snt := false;          

                              break;        

                        end;    

            if snt = true then      

                 writeln(A[i]);  

      end;

end.

program SoNguyenTo;

var

      A: array[1..100] of Integer;

      i, n: Integer;

      isPrime: Boolean;

function IsNumberPrime(num: Integer): Boolean;

var

      j: Integer;

begin

      IsNumberPrime := True;

      if num <= 1 then IsNumberPrime := False

      else

            for j := 2 to Round(Sqrt(num)) do

                  if num mod j = 0 then

                        IsNumberPrime := False;

end;

begin

      write('Nhap so phan tu cua mang: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Cac so nguyen to trong mang la: ');

      for i := 1 to n do

      begin

            isPrime := IsNumberPrime(A[i]);

            if isPrime then

                  write(A[i], ' ');

      end;

end.

while <điều kiện> do <câu lệnh>;

Vd: While a<4 do

a:=a+1;

a.for i:=1 to 10;do x:=x+1;

-> lệnh sai vì sau "to 10" không có dấu ';' 

For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Sửa lại:for i:=1 to 10 do x:=x+1;

b.for i:=10 to 1 do x:=x+1;

-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên  không lặp được.

Sửa for i:=1 to 10 do x:=x+1;

c.while i:=1 do t=10;

-> lệnh sai phép gán giá trị cho biến VD: x:=1

t=10(sai) thiếu dấu ':'  

Sửa lại:

while i:=1 do t:=10;

d.while a<=b;do write('b lon hon a');

-> lệnh sai vì Sau While a<=b không có ';'(While <điều kiện> do <câu lệnh>) 

Sửa lại:

while a<=b do write('b lon hon a');