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

Question

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

---

Answer 1

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

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

Comments

Это точно?

---

Запусти и проверь.