Program Lab9;.
type
dnined= set of (pn,vt,sr,cht,pt,sb,vs);
var
days:dnined;
l,n:byte;
begin
writeln('Множество рабочих дней');
writeln('');
days:=[];
randomize;
l:=0;
for l:=1 to 6 do
begin
n:=random(6);
{case n of}
days:=days+[dnined(n)];
end;
if (pn in days) then writeln('pn');
if (vt in days) then writeln('vt');
if (sr in days) then writeln('sr');
if (cht in days) then writeln('cht');
if (pt in days) then writeln('pt');
if (sb in days) then writeln('sb');
if (vs in days) then writeln('vs');
readln;
end.
помогите плз)
Сообщение отредактировано: chad1s -