Вот ответ:
99300147.2 байта
Готово)))
Выбирай который больше нравится)
Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
Коза - первая буква согласная,
Барсук - первая и последняя согласные,
Осел - последняя буква согласная,
Оса - только если в середине слова буква согласная.
<u />var s,n:integer;
begin
s:=2;
readln(n);
repeat
s:=s*3;
n:=n-1;
until n=1;
writeln(s);
<span>end.</span>