Hello,
I need help with this

program alche;

var
i,w:integer;

begin
readln(i,w);
if (i<0) or (w<0)
then readln
else if i/w = 1000/37
then writeln(‘Y’)
else writeln(‘N’);
readln;
end.

I’m using this code and when I run the test cases I get correct outputs, yet I still get WA…