Lazarus! 1) Известны ширина и длина прямоугольника. Сколько квадратов со
стороной А можно вырезать из данного прямоугольника?

2) Даны три вещественных числа. Вывести на экран те из них,
которые принадлежат интервалу (-6,7;11,2). Если таких чисел
нет, то вывести сообщение «ТАКИХ ЧИСЕЛ НЕТ»

3) В одномерном массиве из 40 элементов найти сумма наименьшего
элемента с остальными элементами массива.

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково

Интернет – это очень полезная вещь, но с другой стороны - слишком вредная. Полезность его заключается в том, что можно найти, практически, любую интересующую вас информацию и можно общаться в социальных сетях с людьми на больших расстояниях. А вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.

Хоть и плюсов много, но минусов больше, например, таких как: лжесайты, на которых распространяют  компьютерные вирусы, снимают большие суммы денег с мобильного телефона, если, например, ты ввел номер своего мобильного телефона для обычной регистрации, а попался к мошенникам;  реклама на сайтах, с которых тебе нужна информация для работы или учебы, а перед глазами все время выскакивает и мелькает бесконечная «гадость» и к тому же, с этих реклам так же распространяют вирусы.

В интернете много всего нецензурного, порнографии и мошенничества. В первую очередь, от всего вышеперечисленного нужно уберегать детей, устанавливая на компьютеры фильтры безопасности и хорошие антивирусы. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые обезопасить информационное пространство интернета, тем самым  защитить детей и их детство.