Ответ:
program perimetr;
var x,y:real;
begin
readln(x);
readln(y);
if (x<3) and (x>-8) and (y<4) and (y>-4) then
write('попала')
else
write('не попала');
end.
Объяснение:
Называй меня Хайзенберг,отблагодари меня тем,что расскажешь всем своим друзьям о том,что лучшие ответы-у меня!