Рассмотрите представленные модели роботов. опишите сходства и отличия моделей.​

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

6*7*7 + 3*7 + 1 = 316

316 = 2*158 + 0

158 =  2*79 + 0

79 = 2*39 + 1

39 = 2*19 + 1

19 = 2*9 + 1

9 = 2*4 + 1

4 = 2*2 + 0

2 = 2*1 + 0

1 = 2*0 + 1

выписываем в обратном порядке остатки:

100111100

итого

program z;

var a,b,a: real;   {при желании можна real поменять на integer }

begin

writeln ('vvedit a i b');

readln (a,b);

if a< b then begin

  c: =a;             {3-я переменная нужна чтобы не потерять неременную a} 

  a: =a*b;

  b: =b+c;

  writeln (a,b);       {вывод даных}

readln                 {задержка экрана}

end;

if a> b then begin   {neвкоем случае не менять эту строчку на "else"}

  c: =b;

  b: =a*b;

  a: =a+c;  

writeln (a,b);

readln  

end   {перед "end" точка з запятой не обязательная}

end.