Написать примеры адекватной и неадекватной информации

адекватная)

сегодня,23 сентебря было найдено щенка!

окрас белый,шерть пушыстая,рост маленький.

кто потерял обращайтесь по номеру [email  protected]@@@@@

неадекватная)

этой осенью,37.12.2045 года было найдено кота!

окрас фиолетовый,шерсть только на лапках,глаза красные.

кто оставил в туалетном бачку обращайтесь ко мне!

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.