Question

Задача 0. Вычислить значение переменной у по одной из двух ветвей

Answer 1

Var  a,b,y: integer;

begin 
readln(a, b); 
if a < b then y:=b-a; 
if a>=b then y:=a-b; 
writeln(y);
end.