Наберите 7 литров воды. объемы сосудов-6, 10, 15 литров. с 7 действий. в итоге должно остаться во втором сосуде 7, а в двух других по 0 заранее .

     6  10   15  < сосуды

1)   6   0    0   (заполняем 1-й сосуд, 2-й и 3-й пустые)
2)  0    0    6   (переливаем из 1-ого в 3-й)
3)   6   0    6   (заполняем  1-й)
4)   0  0    12  (выливаем из 1-ого в 3-й)
5)   0  10  12  (заполняем 2-ой)
6)  0    7   15  (из 2-ого добавляем в 3-й до полного заполнения)
7)   0    7   0   (выливаем из 3-его вон) 

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

 

Первое задание. Скоро сделаю остальное

var
a:array[1..15] of integer;
i,sum,pr,k:integer;
begin
sum:=0;
pr:=1;
k:=0;
for i:=1 to 15 do
begin
a[i]:=random(201)-100;
writeln('a[',i,']=',a[i]);
if i mod 2 = 0 then sum:=sum+a[i];
if a[i]<0 then pr:=pr*a[i];
if a[i] mod 2 <> 0 then k:=k+1;
end;
writeln('Summa elementov s chetnimi nomerami = ',sum);
writeln('Proizvedenie otritsatelnih elementov = ', pr);
writeln('Kol-vo nechetnih elementov = ',k);
end.

Второе

var
a:array[1..5] of integer;
b:array[1..5] of integer;
i:integer;
begin
writeln('Zapolnite massiv');
for i:=1 to 5 do
begin
read(a[i]);
if a[i]<0 then b[i]:=abs(a[i]);
if a[i]>0 then b[i]:=sqr(a[i]);
if a[i]=0 then b[i]:=a[i];
end;
writeln;
for i:=1 to 5 do
writeln('a[',i,']=',a[i]);
writeln;
for i:=1 to 5 do
writeln('b[',i,']=',b[i]);
end.

Третье

var
a:array[1..5] of integer;
b:array[1..5] of integer;
ibuf,i,max,q:integer;
begin
max:=0;
writeln('Zapolnite massiv');
writeln;
for i:=1 to 5 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to 5 do
if a[i]=max then ibuf:=i;
for i:=1 to 5 do
b[i]:=a[i];
b[ibuf]:=a[1];
b[1]:=max;
writeln;
for i:=1 to 5 do
writeln('a[',i,']=',a[i]);
writeln;
for i:=1 to 5 do
writeln('b[',i,']=',b[i]);
end.