ввести с клавиатуры пару чисел,меньшее из них заменить их произведением.большее суммой этих чисел.При воде равных чисел-выход

program two;var a, b, s, p:integer;begina:=0; b:=1;while a<>b do beginwriteln();write(\'Введите два числа через пробел:\');readln(a, b);writeln(\'Начальные значения\');writeln(\'a = \', a, \' b = \', b);s:= a + b;p:= a * b;if a > b then begina:= s;b:= p;writeln(\'Конечные значения\');writeln(\'a = \', a, \' b = \', b);end else if b>a then beginb:=s;a:=p;writeln(\'Конечные значения\');writeln(\'a = \', a, \' b = \', b);endend;writeln(\'Введены одинаковые числа. Работа программы завершена\')end.