** языке Паскаля плеес)

Question

На языке Паскаля плеес)

---

Answer 1

.................................

---

Answer 2

Var x,y:integer;beginif x >= 0 theny:=7elsey:=8;if x + 5 >= 0 theny:=x+5elsey:=x-2;writeln(x:2,y:2);end.

Comments

var x,y:integer;
begin
if x >= 0 then
y:=7
else
y:=8;
if x + 5 >= 0 then
y:=x+5
else
y:=x-2;
writeln(x:2,y:2);
end.