Примеры актуальной и достоверной информации

Актуальная информ примеры: 1) накануне о контрольной работе 2) прогноз погоды на завтра актуальнее прогноза на вчера  достоверная информ примеры: 1) пропущено занятие, подруга говорит, что ничего не задано. 2) скачали информацию в интернете

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.