Найти минимальное натуральное число,которое при делении на 2 дает в остатке 1,при делении на 3 дает в остатке2,при делении на 4 дает в остатке 3,при делении на 5 дает в остатке 4,при делении на 6 дает в остатке 5,а при делении на 7 дает в остатке 6.

Маловато за такую задачу, ну да ладно...

var n:integer; nashel:boolean;
begin
  n:=0;
  nashel:=false;
  while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
  writeln(n);
end.

ответ: 419