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

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.

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