Dạng thiếu:If <Điều kiện> then <Câu lệnh>;

Dạng đủ:If<Điều kiện 1> then <Câu lệnh 1>

Else <Câu lệnh 2>;

Thuật toán

Input:các số từ 1->50

Output:Tổng Các số từ 1->50(S)

Thuật toán:

B1:i:=1;

B2:S=S+i;

B3:Nếu i<=50 thì quay lại B1

B4:In S ra màn hình

B5:Kết thúc

Viết CT:

Var a,b:Longint;

Begin

Writeln('Vui long nhap a,b');

Readln(a,b);

If a>b then Writeln('a lon hon b')

Else Writeln('a nho hon hoac bang b'); {Cho nay neu ban khong muon a nho hon hoac bang b thi thay else if a<b then Writeln('a nho hon b') nhe}

End.

Nếu có gì sai sót thì bình luận để mình sửa nhé!