program AbsValue;
varx, y: Integer;
begin// Ввод значения ywrite('Enter the value of y: ');readln(y);
// Определяем значение xif y >= 0 thenx := yelsex := -y;
// Выводим результатwriteln('The absolute value of x is: ', x);
end.
program AbsValue;
var
x, y: Integer;
begin
// Ввод значения y
write('Enter the value of y: ');
readln(y);
// Определяем значение x
if y >= 0 then
x := y
else
x := -y;
// Выводим результат
writeln('The absolute value of x is: ', x);
end.