Помогите решить пожалуйста:)Даны два числа если их произведение отрицательно то увеличить...

Question

Помогите решить пожалуйста:)
Даны два числа если их произведение отрицательно то увеличить его в 2 раза иначе уменьшить в 1,5 раз

Answer 1

Прошу.

program by_Relhem;
var
a,b,c:integer;
d:real;
begin
writeln ('Введите да числа, разделяя их пробелом');
read (a,b);
c:=(a*b);
if c<0 then d:=c*2 else d:=c/1.5;<br>writeln ('Ваш ответ: ',d);
end.

Comments

Не стоит :)