Нужно составить программу на языке программирования pascal. Даны целые числа А, В, С. Если С>=В>=А, то все числа заменить наименьшим из них, в противном случае сменить знак каждого числа.

Предыдущий
вопрос Следующий
вопрос

Пример решения на языке Pascal:

program ReplaceNumbers;
var
A, B, C: Integer;
begin
writeln('Введите три целых числа:');
readln(A, B, C);
if (C >= B) and (B >= A) then
begin
A := A;
B := A;
C := A;
end
else
begin
A := -A;
B := -B;
C := -C;
end;
writeln('Измененные числа:');
writeln('A = ', A);
writeln('B = ', B);
writeln('C = ', C);
end.

Пользователю нужно будет ввести три целых числа, после чего программа проверит условие и либо заменит все числа на наименьшее из них, либо изменит знак каждого числа.