Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных... - Free Pascal

Формулировка задачи:

Даны целые числа A, B. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

Решение задачи: «Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных...»

Листинг программы

if a>b then b:=a else if b>a then a:=b else begin a:=0; b:=0 end;

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Сравниваются числа a и b. Если a больше b, то выполняется блок кода, начиная со строки b:=a, иначе выполняется блок кода, начиная со строки else if b>a then a:=b.
Если a не больше b, но b больше a, то выполняется блок кода, начиная со строки else if b>a then a:=b.
Если a и b равны, то выполняется блок кода, начиная со строки else begin a:=0; b:=0 end.
В остальных случаях, когда a и b не равны, выполняется блок кода, начиная со строки else begin a:=0; b:=0 end.