1.Модель это- 2. Какие виды графики вы знаете?
3. Начертите(от руки) трехмерные модели
​

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите численность по классам:',
      ReadInteger('Количество классов:'));
  Writeln('Число учеников в самом многочисленном классе превышает '
      'число учеников в самом малочисленном классе на ',
      a.Max-a.Min);
  Writeln('Средняя наполняемость классов равна ',Trunc(a.Average))
end.

Пример
Количество классов: 6
Вводите численность по классам: 31 29 33 24 30 29
Число учеников в самом многочисленном классе превышает число учеников в самом малочисленном классе на 9
Средняя наполняемость классов равна 29

Список учеников в файле data.txt(см. вложение)

//Pascal
type
  TPupils = record
    firstname, surname: string;
    schoolNumber: integer;
  end;

var
  f: text;
  s, buf: string;
  i, j, tmp: byte;
  num, countPupils: integer;
  A: array [1..200] of TPupils;
begin
  assign(f, 'data.txt');
  reset(f);
  j := 1;
  while not eof(f) do
  begin
    readln(f, buf);
    buf := buf + ' ';
    tmp := 1;

    for i := 1 to length(buf) do
    begin
      if pos(buf[i], ' ') = 0 then s := s + buf[i]
      else
      begin
        if length(s) > 0 then
        begin
        case tmp of
          1: begin  A[j].firstname := s; Inc(tmp); end;
          2: begin A[j].surname := s; Inc(tmp); end;
          3:
          begin
            Val(s, num, num);
            A[j].schoolNumber := num;
          end;
        end;
        //writeln(s);
        s := '';
        end;
      end;
    end;
    Inc(j);
  end;
  close(f);

  write('Введите № школы: ');
  readln(num);

  for i := 1 to 200 do
  begin
    if A[i].schoolNumber = num then
      //writeln(A[i].firstname, ' ', A[i].surname, ' ',
      //        A[i].schoolNumber);
      Inc(countPupils);
  end;
  writeln('Количество учеников в данной школе = ',
          countPupils);
end.