Вопрос Помогите пожалуйста, паскаль

[CFIFIR]

Если произведение двух числе положительно, то умножить оба числа на 2, и вывести. ПАСКАЛЬ

 

[Hard_Pirat]

if a*b > 0 then writeln (a+a, b+b);

 

[кирилл мёртв]

А если произведение отрицательное, то что делать?

 

[дмитрий1985]

var a,b:integer;
begin
readln(a,b);
if a*b > 0 then begin
a := a * 2;
b := b * 2;
end;
writeln(a, ' ', b);
end.

 

[Stalk]

var x,y: real; begin write('x y: ');
readln(x,y); if x * y > 0 then begin x := 2 * x;
y := 2 * y; writeln('x = ', x, ', y = ', y) end end.