ВУЗ:
Составители:
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
