Двести центы..ров, четырест.. г..ктаров, с девяност.. с..кундами, трист.. к..лометров, ми(л, лл)ион экземпляров книг, ми(л, лл)иард пудов зерна, двест.. обществе

1.
var a,b,r,s:integer;
begin
write('Введите числа a и b: ');
readln(a,b);
write('Введите остатки r и s: ');
readln(r,s);
if (a mod b=r) or (a mod b=s) then writeln('Да, верно')
  else writeln('Нет, неверно')
end.

2.
var a,b,x:real;
begin
write('Введите числа a и b: ');
readln(a,b);
write('Введите x: ');
readln(x);
if (a<=x) and (x<=b) then writeln(1)
  else writeln(0)
end.