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

var

   first, otvet, second: longint;

begin

   write('Первое число = ');

   readln(first);

   write('Второе число = ');

   readln(second);

   if first < second then

       otvet := first + second

   else  

       otvet := second * first;

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

end.

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