CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
Первое встречающееся число это 5(10) или 11(4). Затем числа, оканчивающиеся на 11(4) встречаются через 100(4) или 16(10). Поэтому числа будут такие: 5, 5+16=21, 5+32=37, 5+48=53...
5, 21, 37, 53, 69, 85, 101. Следующее будет уже 117.
uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.