program masuv1;
uses crt;
var a,b,c:integer;
    x:array[1..100] of integer;
begin
clrscr;
c:=1;
randomize;
for a:=1 to 15 do
x[a]:=random (15);
write(x[a],' ');
end;
writeln;
for c:=1 to 15 do
for a:=1 to 15 do
begin
if (x[c]=x[a]) and (c<>a) then
begin
writeln(c,'-й елемент','=',x[c],' рівний',a,' тому елементу',x[a]);
end;end.

program masuv2;
uses crt;
var a,b,c:integer;
    x:array[1..100] of integer;
begin
clrscr;
c:=1;
randomize;
for a:=1 to 15 do
x[a]:=random (15);
write(x[a],' ');
end;
writeln;
for c:=1 to 15 do
for a:=1 to 15 do
begin
if (x[c]=x[a]) and (c<>a) then
begin
writeln(c,'-й елемент','=',x[c],' рівний',a,' тому елементу',x[a]);
end;end.

Задача 1
Комп"ютер задумує числа, якщо серед тих чисел є менші 5, вони виводяться на екран.
program mas1;
uses crt;
var a,b:integer;
x:array[1..100] of integer;
begin
clrscr;
for a:=1 to 15 do
begin
if x[a]<=5 then wrietln(x[a],' ');
end;
end.