Паскаль: напишите программу, которая меняет местами значения двух переменных в памяти.

Program ;
var a,b,c: integer;
begin
    writeln('Введите a');
    readln(a);
    writeln ('Введите b');
    readln(b);
    c := a;
    a := b;
    b := c;
    writeln('a = ' ,a);
    writeln('b = ', b);
end.
   

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

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

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

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.