Решите это пожалуйста

Question

Решите это пожалуйста

---

Answer 1

1   var

2  a,b:integer;

3

4 begin

5    write('Первое число: ');

6    readLn(a);

7     write('второе число: ');

8     readLn(b);

9    if (a*b)>0 then

10      

11     write('имеют');

12   if (a*b)<0 then</p>

13    write('не имют');

14   end.

это если на паскале