Из чисел 1, 2, n выбирают с возвращением k чисел. найдите вероят-
ность того, что получена группа из k последовательных чисел, располо-
женных в порядке возрастания.

var
num,modulo: integer;
begin
write('Number: ');
readln(num);
modulo:= num mod 3;
case modulo of
0: writeln(num,' divisible by 3');
1: writeln(num,' is not divisible by 3, the remainder is equal 1');
2: writeln(num,' is not divisible by 3, the remainder is equal 2');
end;
end.