нужно написать и нарисовать программу к робика

А)заполним водой 4х литровый сосуд и выльем его в семилитровый .в семилитровом останется место для 3 литров опять наберём 4х литровый сосуд и выльем в 7 литровый сосуд так как там осталось 3 литра то в 4х литровом сосуде останется литр.
б)заполним водой 4х литровый сосуд и вылем в 7литровый сосуд опять наберём 4х литровый сосуд и выльем 7 литровый наполнится а в 4х литрово останется 1 литр.Выльем всё из 7 литрового сосуда и нальём литр из 4х литрогого теперь опять наберём 4х литровый и выльем в 7 литровый там будет пять литров.

1
var
  a:array[1..10]of integer;
  s,i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
    if a[i]>0 then
       begin
       s:=s+a[i];
       write(a[i],' ');
       end;
writeln;
writeln('Сумма: ',s);
end.

2
var
  a:array[1..20]of integer;
  s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(20);
  write(a[i],' ');
  end;
writeln;
write('Искомые элементы: ');
for i:=1 to 20 do
    if i mod 2=1 then
       begin
       s:=s+a[i];
       write(a[i],' ');
       end;
writeln;
writeln('Их сумма: ',s);
end.

3
var
  a:array[1..20]of integer;
  s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i],' ');
  end;
writeln;
write('Меньше 25: ');
for i:=1 to 20 do
    if a[i]<25 then
       begin
       s:=s+1;
       write(a[i],' ');
       end;
writeln;
writeln('Их количество: ',s);
end.