//Версия написания (по просьбе Эникей): //PascalABCCompiler.Core v3.3.0.1540 (16.09.2017) var a, b: integer; begin write('Введите числа a и b через пробел и нажмите "enter": '); read(a, b); write('Знак произведения - '); if a*b < 0 then write('"-"') else if a*b > 0 then write('"+"') else write('//Произведение равно нулю'); end.
Answers & Comments
Verified answer
//Версия написания (по просьбе Эникей)://PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)
var
a, b: integer;
begin
write('Введите числа a и b через пробел и нажмите "enter": ');
read(a, b);
write('Знак произведения - ');
if a*b < 0 then write('"-"') else if a*b > 0 then write('"+"') else write('//Произведение равно нулю');
end.