Ответ:
информация это когда о чем-то дают какую-нибудь информацию.
Код и результаты работы на скриншоте. Если я правильно понял, надо посчитать количество людей родившемся в том или ином дне месяца, игнорируя первые числа. Что относительно выводов то вероятность родиться в какой-либо день меньше 31 примерно одинакова. 31 числа - примерно в 2 раза меньше, потому что такой день есть примерно в половине месяцев. Получается, вроде бы, дискретное равномерное распределение. На картинках выглядит похоже.
Program zz;
var a:integer;
begin
Writeln('Введите число:');
readln(a);
write('Число в обратном порядке:');
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
end.
Var x:string;
i,y,z:longint;
begin
readln(x);
y:=length(x);
for I:=4 to y do
begin
if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;
end;
write(z)
end.