Даны числа x и y.Вычеслить число z равное x+y если x<=y,и 1-x+y в противном случае
какой язык?
Var x, y, z: integer; begin Write('Введите x: '); Read(x); Write('Введите y: '); Read(y); if x <= y then <br> z := x + y else z := 1 - x + y; Write(z); end.