Как с 9литровой и 5литровой банок отмерить ровно 6 литров? ​

1) Program gsdn;
Var k: integer;   
z,n,i,l,s: real;
Begin
k:=0;
l:=5.6;
s:=0;
Repeat
k:=k+1;
n:=0.3;
i:=l+(n*k);
S:=i+s;
Writeln(i);
Until i=9.8;
Writeln(s);
end.
2) Program afaf;
Var k,h: integer;   
z,n,i,l,s,y: real;
begin
k:=0;
h:=0;
l:=8.5;
s:=0;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
S:=i+s;
Until i=40.9;
k:=0;
h:=0;
l:=1;
y:=1;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
y:=i*y;
Until i=3;
If y-s>0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 меньше произведения чисел от 1 до 3 с шагом 0.25');
If y-s<0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 больше произведения чисел от 1 до 3 с шагом 0.25');
If y-s=0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 равно произведению чисел от 1 до 3 с шагом 0.25');
end.
3) Program dsagsa;
var i,j,y: integer;   
B: Array[1..5,1..5] of integer;
begin 
For i:=1 to 5 do   
For j:=1 to 5 do     
begin       
y:=random(16)-5;       
B[i,j]:=y;     
end; 
For i:=1 to 5 do   
begin     
Write('(');     
For j:=1 to 5 do       
Write(B[i,j],' ');     
Write(')');     
Writeln;   
end;
end.
4) program fagasg;
var i,j,i1,j1,y,s: integer;   
A: Array[1..50,1..50] of integer;
begin 
Writeln('Введите количество строк в массиве'); 
readln(i1); 
Writeln('Введите количество столбцов в массиве'); 
readln(j1); 
 s:=0; 
 For i:=1 to i1 do   
 begin     
Write('(');     
For j:=1 to j1 do       
begin         
y:=random(30)+1;         
A[i,j]:=y;         
S:=A[i,j]+s;         
Write(A[i,j],' ');       
end;     
Write(')');     
Writeln;   
end;
end.
Матрицы немного коряво вышли, ну и чуть-чуть быдло кода)

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.