Составьте программу которая запрашивает время в часах(0,3,6,9,12,15,18,21,24) и рисует часы с показанием часовой стрелки
PascalABC

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая:
Program futbol;
var fio: array [1..25] of string;
      gol: array [1..25] of integer;
       i,j: integer;
       f: string;
begin
   writeln ('Введите фамилии игроков, забивших голы');
   writeln ('Окончание ввода - пустая строка');
   j:=0;
repeat  
   readln(f)
   newfio:=true;
   for i:= 1 to j do begin
       if fio[i]=f then begin
             gol[i]=gol[i]+1;
              newfio:=not newfio;
             end;
       if newfio then begin
           j:=j+1;
           fio[j]:=f;
   end;
while not f='';

for i:= 1 to j do begin
  if gol[i]>2 then writeln fio[i];
end;
end.

Количество информации в сообщении обычно равно количеству бит (округляемому до ближайшего целого с избытком) , которое необходимо для воспроизведения текста сообщения. то есть в сообщении 10101010 информации - 8 бит, в сообщении "погода сегодня будет зимняя, снег не растает, солнце взойдет утром и сядет вечером" - 350 бит (если считать, для простоты, что в языке 32 буквы) . в сообщении e=hν информации, если кодировку ситать юникодом, - 8 байт (64 битa) информации. но вот ценность этих сообщений несопоставима.  но ценность информации не есть величина неизбывная и строго измеряемая для данного сообщения. она всегда зависит от того, кому эта информация предназначена, и от того, что путного можно извлечь из неё, а значит - слабо формализуема. в конце концов, запросто можно представить себе (путь и фантастическую)