TH1: dùng for 

program tinhtong;

uses crt;

var s,n,i:integer;

begin

clrscr;

write('Nhap n: ');    readln(n);

s:=0;

for i:=11 to n do {như thế sẽ không cần kiểm tra điều kiện i>10 và vòng lặp sẽ nhanh hơn}

 if i<20 then s:=s+i;

write('Tong cac so tu 1 den ',n,' nhung lon hon 10 va be hon 20 la: ',s);

readln

end.

TH2: dùng while

program tinhtong;

uses crt;

var s,i,n:integer;

begin

clrscr;

write('Nhap n: ');    readln(n);

s:=0;   i:=11;

while (i<=n) and (i<20) do

   s:=s+i;

{như thế sẽ nhanh hơn vì đã cho sẵn i>10 và nếu n lon hon 20 thì chỉ chạy tới 19 là dừng}

write('Tong cac so tu 1 den ',n,' nhung lon hon 10 va be hon 20 la: ',s);

readln

end.

program vidu1;
var n ,i, s: integer;
begin

         writeln('hay nhap so nguyên n:');

         readln(n);

         s:= 0;

         for i:=1 to n do

         if (i<10) and (i>26) then (s:=s+i) ;

         writeln ( 'tong cac so thoa man yeu cau la : ', s);

         readln;
end.  

_Goodluck_