program Massiv;
Uses
CRT;
Type
Mass1 = array [0..1000] of real;

Var
S,T,U,A: Mass1;
w,j,v,i,k,tt,n: integer;
mas1, mas2: boolean;
begin
Clrscr;
Writeln('Введите k');
ReadLn(k);
Writeln('Введите t');
ReadLn(tt);
Writeln('Введите n');
ReadLn(n);
for i:=1 to k do S[i]:=Random(10);
for i:=1 to tt do T[i]:=Random(10);
for i:=1 to n do U[i]:=Random(10);
Writeln('Произвольно были сгенерированы массивы чисел:');
Writeln('Массив S: ');
for i:=1 to k do Write(S[i], ', ');
Writeln();
Writeln('Массив T: ');
for i:=1 to tt do Write(T[i], ', ');
Writeln();
Writeln('Массив U: ');
for i:=1 to n do Write(U[i], ', ');
Writeln();
Writeln('Одинаковые числа во всех массивах: ');
w:=1;

for i:=1 to k do
begin
mas1:= false;
mas2:= false;
for j:=1 to tt do
begin
if S[i]=T[j] then mas1:= true;
end;
for v:=1 to n do
begin
if S[i]=U[v] then mas2:= true;
end;
if (mas1 = true) and (mas2 = true) then
begin
end;
end;
for w:=1 to w-1 do Write(A[w], ', ');
end.