18-22 while begin end Pascal
while PixelColor RedColor do
begin
statement1;
statement2;
...
end;
18-23 case begin end Pascal
case PixelColor of
RedColor,
begin
statement1;
statement2;
end
GreenColor
begin
statement1;
statement2;end
else
begin
statement1;
statement2;end
end;
18.3.5
Ada
C Pascal begin-end
18.4