Question

Буду благодарен за решение ❤️

Answer 1

Ответ:

var x,y:real;

begin

write ('x = ');

readln (x);

write ('y = ');

readln (y);

if x>y then write (x,' - ',y,' = ',x-y)

else write (y,' - ',x,' + 1 = ',y-x+1)

end.