даны два числа найти сумму этих чисел если 1-ое число не

var

   first, otvet, second: longint;

begin

   write('1-ое число = ');

   readln(first);

   write('2-ое число = ');

   readln(second);

   if first lt; second then

       otvet := first + second

   else  

       otvet := second * first;

   writeln('Ответ: ', otvet);

end.

//пж отметь как лучший