Nhập N số bất kì . Đếm các số lớn hơn 10 và nhỏ hơn và tính tổng của chúng sau đó đưa ra màn hình: Số các số > 10 < 20 la (gia tri ) tổng của chúng

program phuongt;

uses crt;

  var n, s, i, d, so: integer;

begin

           clrscr;

           write(‘Nhap n so = ‘); readln(n);

           d:=0; s:=0;

           for i:=1 to n do

           begin

                      write(‘Nhap so: ‘); readln(so);

                      if (so>10) and (so<20) then begin d:=d+1; s:=s+so; end;

           end;

           write(‘So cac so > 10 < 20 la ‘, d, ‘; tong cua chung la: ‘, s);

           readln

end.