Question

Помогите пожалуйста написать программу на Паскале ко второму рисунку,условия на картинке.

Answer 1

Program test;
Var  x, y : integer;
  answer : boolean;Begin  x:=0; //сюда пишешь значения x и y  y:=0;  if ((trunc(sqrt(sqr(x)+sqr(y)))<=5)and(trunc(sqrt(sqr(x)+sqr(y)))>=3)and (x>=0))  then  answer:=true  else answer:=false;  writeln (answer);End.

Вот наверное так. Надо писать что тут происходит?