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

простая задача же.var c1,c2,b,m:integer;beginwrite('Введите число 1 ');readln(c1);write('Введите число 2 ');readln(c2);if c1>c2 then begin b:=c1, m:=c2; c2:=m+b; c1:=m*b; endelse b:=c2, m:=c1; c1:=m+b; c2:=m*b;end:write('Первое число=',c1,'Второе число=',c2);end.