Кто такой разметчик данных?

1) Директор управляет - учителя объекты управления; (дежурство отдается в форме приказа по школе)
2) Учитель управляет - ученики объекты управления; (выполни дз отдается в форме задания по учебнику или тетради)
3) Пилот управляет - самолет объект управления; (взлет - отдается в форме нажатия определенных рычагов и кнопок и устных команд экипажу)
4) Вожак управляет - стая объекты управления; (охота или добыча еды - вой, лай или своебразное поведение животного)
5) Пастух управляет - коровы объекты управления (переход на пастбище, кнут отдаст все нужные команды)))

Program srednee;
var
  a, b, c:integer;
  sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
  begin
          a:= sqr(a); writeln ('Квадрат а=', a);
          b:= sqr(b); writeln ('Квадрат b=', b);
          c:= sqr(c); writeln ('Квадрат c=', c);
  end else begin
      if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
        begin
          a:= a+10; writeln ('а+10=', a);
          b:= b+10; writeln ('b+10=', b);
          c:= c+10; writeln ('c+10=', c);
        end else begin
          sa:=(a+b+c)/3;
          write ('Среднее арифметическое =', sa);
          end
      end
end.