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

адекватная)

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

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

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

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

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

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

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

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.