dòng 1: tên chương trình

dòng 2:khai báo thư viện

dòng 3:khai báo biến i theo kiểu integer

dòng 4:bắt đầu chương trình

dòng 5 :xóa màn hình

dòng 6 :i được gán bằng không

dòng 7:trong khi i bé hơn hoặc bằng 20 thì thực hiện câu lệnh

dòng 8:bắt đầu chương trình con

dòng 9 đưa i ra màn hình

dòng 10:i được cộng thêm 1 rồi quay lại dòng 7 so sánh điều kiện

dòng 11 :kết thúc chương trình con

dòng 12: dừng màn hình

dòng 13: kết thúc chương trình

@Meoss_

program Day_so_cua_Nga;

→ Tên CT ( chương trình )

uses crt;

→ Nơi chạy CT

var i: interger;

→ Khai báo biến i thuộc kiểu dữ liệu số nguyên

begin

→ Bắt đầu CT

clrscr;

→ Dừng màn hình khi chạy CT

i:= 0;

→ Gán i có giá trị là 0

while i <= 20 do

→ Nếu i nhỏ hơn hoặc bằng 20, CT làm việc

begin

→ Bắt đầu chương trình nhỏ

writeln (i);

→ In '' i ''

i:= i + 1;

→ Gán i sau mỗi lần lặp sẽ tăng lên 1 đơn vị

end;

→ Kết thúc CT nhỏ

readln;

→ In màn hình

end.

→ Kết thúc cả CT