деление чисел, прога Опции

[Гость]

п-а,которая делает проверку, делится ли числo А на число B

[volvo]

Ну, в принципе, можно через функцию сделать (вычислить НОД(A, B), и если он = 1, то число A не делится на B нацело):

function GCD (A: integer;  B: integer): integer;
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else 
         b := b mod a;
    GCD := a + b;
end;

Var A, B: integer;
begin
  ReadLn(A, B);
  If GCD(A, B) <> 1 Then Write('Yes') Else Write('No');
end.

При желании можно и рекурсивно GCD вычислить...