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

program two;
var a, b, s, p:integer;
begin
a:=0; b:=1;
while alt;gt;b do
begin
writeln();
write(Введите два числа через пробел:);
readln(a, b);
writeln(Исходные значения);
writeln(a = , a, b = , b);
s:= a + b;
p:= a * b;
if a gt; b then
begin
a:= s;
b:= p;
writeln(Окончательные значения);
writeln(a = , a, b = , b);
end
else if bgt;a then
begin
b:=s;
a:=p;
writeln(Конечные значения);
writeln(a = , a, b = , b);
end
end;
writeln(Введены одинаковые числа. Работа программы завершена)
end.