Настроение сейчас - %(


{Translete: to all}
uses crt;
const число_посетителей = 0;
var
новые : boolean;
количество: array [1..10000] of integer;
BLOG: private log [1..500] of char;
BEGIN
if новые = true then количество[i]:= количество [i] + 1
else
  begin
     новые:= false;
     writeln (' постоянно', const число_посетителей);
     BLOG:=  + delete;
  end;
{прощание}
clearall;
END.