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

program two;

var a, b, s, p:integer;

begin

a:=0; b:=1;

while ab do

begin

writeln ();

write ('Введите два числа через пробел:');

readln (a, b);

writeln ('Начальные значения');

writeln ('a = ', a, ' b = ', b);

s: = a + b;

p: = a * b;

if a > b then

begin

a: = s;

b: = p;

writeln ('Конечные значения');

writeln ('a = ', a, ' b = ', b);

end

else if b>a then

begin

b:=s;

a:=p;

writeln ('Конечные значения');

writeln ('a = ', a, ' b = ', b);

end

end;

writeln ('Введены одинаковые числа. Работа программы завершена')

end.