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

begin

inc (i);

str:=' ';

if zoopark1[x]<>zoopark2[y] then rezultat[i]:=zoopark1[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;

begin

clrscr;

textbackground(white);

textcolor(black);

writeln ('Wwedite kolichestwo giwotnih 1 zooparka:');

readln(v);

writeln ('Wwedite kolichestwo giwotnih 2 zooparka:');

readln(w);

write('Wwedite giwotnih 1 zooparka ');

writeln(',w konce nagat Enter:');

for k:=1 to v do

begin

readln (zoopark1[k]);

end;

write('Wwedite giwotnih 2 zooparka ');

writeln(',w konce nagat Enter:');