Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=100) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.

Đọc những câu trả lời khác, mình thấy chúng đều sai và là "copy-pasta" của vài bạn lười biếng , không làm mà đòi có ăn.

program nhapN;
uses crt;
var n : integer;
begin
clrscr;
Write(' Nhap N = ');
Read(n);
if ( (n < 50) or (n >100) ) then begin
repeat
Write(' Nhap sai, nhap lai N = ');
Read(n);
until ( (n>=50) and (n<=100) );
Write(' N la : ',n);
readln;
end.
 

Có chút nhầm lẫn ạ, xin lỗi bạn

program nhapN;
uses crt;
var n : integer;
begin
clrscr;
Write(' Nhap N = ');
Read(n);
if ( (n < 50) or (n >100) ) then begin
repeat
Write(' Nhap sai, nhap lai N = ');
Read(n);
until ( (n>=50) and (n<=100) );
end;
Write(' N la : ',n);
readln;
end.

  Ho Chi Minh City (Saigon Time

Xem nội dung đầy đủ tại:https://123doc.net/document/562604-code-tro-choi-hai-cau-san-moi.htm