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

Простая задача же.

var

c1, c2, b, m:integer;

begin

write ('Введите число 1 ') ;

readln (c1) ;

write ('Введите число 2 ') ;

readln (c2) ;

if c1>c2 then begin b:=c1, m:=c2; c2:=m+b; c1:=m*b; end

else

b:=c2, m:=c1; c1:=m+b; c2:=m*b;

end:

write ('Первое число=', c1,'Второе число=', c2) ;

end.