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.

**Em thích nhất là câu lệnh For...to...do

Vì nhờ có câu lệnh này, em không cần phải viết đi viết lại 1 câu lệnh nào đó nhiều lần; thay vì đó, em chỉ cần viết đúng 1 câu lệnh theo cú pháp for...to...do

**Chương trình tính tổng các số tự nhiên từ 1 đến 50

Program baitap;

Uses crt;

Var i,S:integer;

Begin

Clrscr;

S:=0;

For i:=1 to 50 do S:=S+i;

Writeln('Tong cac so tu nhien tu 1 den 50:',S);

Readln

End.