Question

Помогите ПЖ !!!!!!!!

Answer 1

Ответ:

program prog1;

var

res, a, b: integer;

begin

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

read(a);

writeln('Введите 2-е число:');

read(b);

res := a + b;

if res > 0 then

 res := res + 3

else

 res := res * -3;

 

writeln('Результат:');

writeln(res);

end.

Объяснение:

Главное что бы этот файл был в кодировке ОЕМ 866, иначе выведет кракозябры.

(и про лучший ответ не забудь)