с дз по инфе Дано целое число А (оно вводится с клавиатуры), если оно меньше нуля, то умножить его на 2. Если число больше нуля, то разделить на 2. А если равно нулю, то прибавить 5.

Объяснение:

Во вложении

ответ: Проверено

program hhh;

var

 a: integer;

begin

 Writeln('Введите число:');

 Readln(a);

 begin

   if a < 0 then

     writeln('ответ ', a * 2, ';' ) end ;

   begin

     if a > 0 then

       Writeln('ответ ', a / 2, ';' ) end ;

     begin

       if a = 0 then

         Writeln('ответ ', a + 5, ';' ) ;

     end;

   end.