Em thích nhất là lệnh repeat until, for do và if then

ở đây chỉ nói if then

Vì khi dùng if then, ta giải quyết được các điều kiện ta đưa ra

Bài toán mẫu : nhập 2 số nguyên a,b và xét xem a có chia hết cho b không

uses crt;
var a,b:longint;
begin
clrscr;
write('nhap a: ');
readln(a);
write('nhap b: ');
readln(b);
if a mod b=0 then writeln(a:2,'chia het cho',b:2);
if a mod b<>0 then writeln(a:2,'khong chia het cho',b:2);

readln
end.

$#QLinkVN$

- Em thích nhất lệnh "$writeln$" nhất vì ta có thể in ra màn hình mọi cái mình muốn hiện thị khi sử dụng lệnh này!

- Bài toán: Nhập vào `2` số. Viết ra số lớn hơn!

- Cấu trúc chương trình:

program lmao;
uses crt;
var a,b: integer;
begin
         clrscr;
         writeln('Nhap gia tri a: '); readln(a);
         writeln('Nhap gia tri b: '); readln(b);
         if (a<b) then writeln('So lon hon la: ',a) else writeln('So lon hon la ',b);
         readln;
end.