Câu lệnh ghép là một câu lệnh được hợp thành từ nhiều câu lệnh thành phần (đơn hoặc kép).
Biểu diễn: begin <câu lệnh>; end;
vd while i<=10 do
begin
i:=i+1;
S:=S+i;
end;
VD :
program tuoi_cha_con;
uses crt;
var tuoicha, tuoicon, nam: longint;
begin
clrscr;
write('Nhap tuoi cha va con(tuoicha-tuoicon>=25) ;
readln(tuoicha,tuoicon); nam:= 0;
while tuoicha<>2*tuoicon do begin
tuoicha:= tuoicha + tuoicon := tuoicon + 1; nam:= nam +1;
end;
writeln ( ' Sau ' , nam, ' nam, tuoi cha gap doi tuoi con' );
readln
End.
Vd là tính tuổi cha con
#NOCOPY#
