Question

Помогите написать программы на языке Паскаль , пожалуйста срочно надо !!!

Answer 1

1:
var
  x, y: real;
begin
   Readln(x, y);
  Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.

2:
var x,y: real;
begin
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then
writeln('true')
else
 writeln('false');
 end.