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

Это точно?

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

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;beginread (x, y);if (x>=3) and (x<=5) and (y>=3) and (y<=5) then writeln('true') else writeln('false'); end.