18)var n:integer; begin write('n=');readln(n); begin if n mod 7 = 0 then begin write('n chia het cho 7'); end else write('n khong chia het cho 7'); end; end.
19) Cấu trúc dạng dù là cấu trúc đi từ trên xuống dưới ( như crocodile) các lệnh điều kiện thường là if,case, ...
