uses crt;
var m,k,i,l,c:integer;
a:array[1..10000] of integer;
b:array[1..10000] of integer;
ab:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива a(m)');
readln(m);
writeln('Введите размер массива b(k)');
readln(k);
clrscr;
writeln('Введите элементы массива a(m)');
FOR i := 1 TO m do
begin
readln(a[i]);
end;
writeln('Введите элементы массива b(k)');
FOR i := 1 TO m do
begin
readln(b[i]);
end;
FOR i := 1 TO m do
begin
FOR l := 1 TO k do
begin
 IF a[i] = b[l] THEN
 begin
 c := c + 1; ab[c] := a[l];
 end;
end;
end;
clrscr;
writeln('Массив образованный из одинаковых элементов');
FOR i := 1 TO c do
begin
writeln (ab[i]);
end;
end.