Какую фигуру нарисует черепаха выполнив программы​

Сначало Англичанин со своей женой едут в лодке на другой берег. на другом берегу остаётся Англичанин, а его жена едит обратно.

Затем Англичанка берёт с собой негритянку и они переправляются на другой берег. на другом берегу остаётся англичанка со своим мужем.

Негретянка едет обратно и берёт с обой  своего мужа и переправляется с ним на другой берег. на другом берегу остаётся негр, а его жена едет обратно. Негретянка берёт с собой жену индейца и переправляется с ним на другой берег. на другом берегу остаётся Англичанин со свой женой и негр со своей женой. жена индейца едет обратно и забирает своего мужа и они плывут на другой берег

Program Num3;

Uses Crt;

var a,b,c,n,s:integer;

begin

     clrscr;

     write('Введите 3 числа: ');

     readln(a,b,c);

     n:=0;s:=0;

     if (a mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+a;

             end;

if (b mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+b;

             end; 

if (c mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+c;

             end;

  if (n=0) then writeln('Нету чётных чисел вообще !! ')

          else  writeln('Количество чётных чисел:',n,'Их сумма: ',s);    

    readkey;

end.