Постройте на координатной плоскости рисунок , отметив и последовательно соединив точки

номер. x. y

1. 1. 100

2 1 11

3. 11 1

4. 1000. 1

5. 111. 10

6. 110. 10

7. 111. 100

8. 1000. 101

9. 1010. 1

10. 1011. 1

11. 1010. 11

12. 1010. 110

13. 1011. 111

14. 1100. 111

15. 1101. 1000

16. 1101. 1001

17. 1100. 1010

18 1011. 1100

19. 1010. 1101

20. 1011. 1001

21. 1001. 1101

22. 1001. 1100

23. 1010. 1010

24. 1001. 1001

25. 1000. 1000

26. 110. 111

27. 11. 110

28. 10. 11

29. 1 100

program z1;

var a:array[1..100,1..100] of integer;

i,j,n,m: integer;

begin

write ('n (n<=100) = ');

readln(n);

writeln;

writeln('Массив: ');

randomize;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(10);

write (a[i,j]:3)

end;

writeln;

end;

writeln;

for j:=1 to n do

begin

m:=a[1,j];

for i:=2 to n do

if a[i,j]<m then m:=a[i,j];

writeln('Минимальный элемент ',j,' столбца: ',m)

end

end.

Объяснение:

Вводим количество элементов

Задаём массив и выводим его на экран

Находим минимальный элемент столбца и выводим его на экран

Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.

var
  res,num:integer;
begin
  res:=0;
  repeat
    Read(num);
    if (num>res) and (num<=15) then res:=num
  until num=0;
  Writeln(res)
end.