Могут ли разные объекты описываться одной и той же моделью? пример.

Да конечно. векторный квадрат и векторный круг - разные объекты, а описываются одной и той  же моделью 

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a: array[1..n] of integer; i,k,s: integer; begin   for i: =1 to 10 do begin       a[i]: =random(2,5); s: =s+a[i];       write(a[i]: 4);   end;   writeln;   writeln('среднее арифметическое оценок = ',s/n: 0: 1); end. тестовое решение:     5    2    5    2    3    4    5    4    3    5 среднее арифметическое оценок = 3.8 а уж что поставит учитель - это его решение)

Function check(num : integer) : boolean; var   sum : integer; begin   while num > 0 do   begin     sum : = sum + num mod 10;     num : = num div 10;     end;       result : = (sum > = 20) and (sum < = 30); end; var   i, len : integer;   sum : real; begin   sum : = 0;   len : = 0;   for i : = 10000 to 99999 do   begin     if check (i) then       begin       len : = len + 1;       sum : = sum + i;       end;     end;       writeln('среднее арифметическое: ', sum / len); end.