Как можно назвать отношение между объектом-оригиналом и его моделью?

Клон

Копия

Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
 Write('Введите число A: '); 
Readln(a);
 Write('Введите число B: '); 
Readln(b); 
Write('Введите число C: '); 
Readln(c); 
If  a>=b then max:=a
 else 
 max:=b;   
 If c>max then
max:=c; 
r:=a+b+c;
 If (A>B) and (B>C) and (C>0) then
 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then
  begin   
A:=max;   
 B:=max; 
  C:=max; 
Writeln('A= ',a,' B= ',b,' C= ',c); 
   end   
else   
 Writeln('Symma: ',r);
end.

Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама