Mode séquentiel en Pascal



var
idx:integer;
begin
for idx:=1 to 10 do
begin
case idx do