Question

Запишите решение задачи на языке паскаль: дано целое число, если оно отрицательное то увеличте его в пять раз​

Answer 1

var

 number:integer;

begin

 number:=ReadInteger('Введите число: ');

 if (number < 0) then

   begin

     write('Число отрицательное, увеличиваем его в пять раз: ');

     number:=number * 5;

     write(number);

   end else

     write('Число неотрицательное');      

end.