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

rezultat[x] :=zoopark2 [y] ;

end;

clrscr;

writeln ('Rezultat rawen->> ');

for i:=1 to v+w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

procedure obedinenie;

begin

for x:=1 to v do

for y:=1 to w do

begin

if zoopark1[x]=zoopark2[y] then

zoopark1[x]:=' ';

end;

for j:=1 to v do

begin

rezultat[j]:=zoopark1[j];

end;

t:=0;

for d:=j+1 to v+w do

begin

t:=t+1;

rezultat[d] :=zoopark2[t];

end;

clrscr;