ВУЗ:
Составители:
s:=8;
until s=8;
closegraph;
end;
2: begin
s:=1;
otkr_gr;
repeat
case s of
1: list21;
2: list22;
3: list23;
4: list24;
5: list25;
end;
if kod=27 then
s:=6;
until s=6;
closegraph;
end;
end;
until ukaz=3;
END.
64
s:=8; until s=8; closegraph; end; 2: begin s:=1; otkr_gr; repeat case s of 1: list21; 2: list22; 3: list23; 4: list24; 5: list25; end; if kod=27 then s:=6; until s=6; closegraph; end; end; until ukaz=3; END. 64