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

адекватная)

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

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

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

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

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

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

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

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.