Спасайте друзья! Составить программу ** pascal abc.

Question

Спасайте друзья! Составить программу на pascal abc.

---

Answer 1

var x,y: integer;

begin

read(x,y);

if (-5=

writeln('попадает')

else writeln('не попадает');

end.