Uses Crt;
var
x,y,z:integer;
begin
ClrScr;
Write('Введите x: ');
ReadLn(x);
Write('Введите y: ');
ReadLn(y);
If x>y then
z:=x-y
else
if x<y then
z:=y-x+1
else
z:=0;
WriteLn('z=',z);
ReadKey;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.