mô tả thuật toán

Bước 1 cho phép nhập vào số tự nhiên cần kiểm tra

Bước 2 so sánh nếu số vừa nhập chia 2 lấy phần dư mà = 0 thì in ra màn hình số đó là số chẵn còn không thì in ra số đó là số lẻ,

Bước 3 kết thúc chương trình 

viết chương trình 

proggram so;

uses crt;

var a:integer

begin

         clrscr;

          write('nhap vao so tu nhien a '); read(a);

          if a mod 2 = 0 then write(a,' la so chan')

          else write(a,'la so le');

         readln

end. 

Bước 1. Nhập số từ bàn phím

Bước 2.1.  Kiểm tra, nếu số đã cho chia hết cho hai thì cho số đó là số chẵn rồi chuyển tới bước 3

Bước 2.2. Không thì cho số đó là số lẻ rồi chuyển đến bước 3

Bước 3. In số đó ra màn hình rồi kết thúc

program so;

uses crt;

var n: integer;

begin

clrscr;

write('Nhap so vao tu ban phim:  ');

readln(n);

if n mod = 0 then writeln(' So da cho la so chan.')

else writeln(' So da cho la so le.');

readln

end.