Лабораторная работа: Программа на языке Паскаль, реализующая операции над множествами

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

procedure raznost;

begin

for x:=1 to v do

begin

rezultat[x] :=zoopark1 [x] ;

for i:=1 to v do

for j:=1 to w do

begin

if rezultat[i]=zoopark2[j] then

rezultat[i]:=' ';

end;

clrscr;

writeln ('Rezultat rawen->>');

for i:=1 to w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

end;

procedure dekartovoe_proizvedenie;

begin

i:=0;

for x:=1 to v do