$Input$ 20 số chẵn đầu tiên
$Output $ tính tổng $S$
Thuật toán
Bước 1: Nhập 40 số (vì 20 số chẵn => từ 1 đến n phải 40 số mới đủ 20 số chẵn )
Bước 2 : gán s:=0;
Bước 3: cho biến i chạy từ 1 - 40 nếu $i mod2=0 $ => $S:=S+i$
Bước 4 : In ra kết quả và kết thúc thuật toán
Chương trình
Program Hotboy ;
Uses crt;
Var i,s : integer ;
Begin
Clrscr;
For i:=1 to 40 do
Begin
If (i mod 2=0) then s;=s+i;
Write('tinh tong',S);
End;
Readln
End.
