Буду за подмогу по лабораторным и самостоятельным работам:

1)пользователь вводит целое положительное число m. найти наименьшее
натуральное число k, при котором сумма 1^2 + 2^2 + 3^2 + + k2 > m. вывести на экран таблицу значений сумм при всех k от 100 до 120.

2)числа пелля определяются так: первое число равно 1, второе равно 2,
каждое следующее равно a(n)=2·a(n-1)+a(n-2). составить программу, которая находит сумму первых k чисел пелля (k – задается пользователем)

3) составить программу, которая находит наименьшее из трёх целых чисел,
введенных пользователем. если таких чисел несколько, выдавать соответствующие сообщения.

4) пользователь вводит целые числа x и y. составить программу, которая
определяет, принадлежит ли точка с координатами (x,y) заштрихованной
области на рисунке.

Сварщик — рабочий, специалист сварочного производства.

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

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

Program znanija;
var A:array[1..20] of integer;   
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое ) 

for i:=1 to 20 do  A[i]:=random(9); // заполняем массив 

for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;  

for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив 

writeln();  // просто перевод на новую строку для красоты 

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.