Определить, верно ли, что при делении неотрицательного числа а на положительное целое число в получается остаток равный одному из двух заданных чисел r или s. составить линейную программу в паскале.

Var a,b,r,s,c:integer;
begin
readln(a,b);
readln(r,s);
c:=a mod b;
writeln((c=r)or(c=s));
end.

Пример:
18 4
2 5
True