ДАЮ 45 БАЛЛЛОВ, ПОМОГИТЕ!!!!! ​

Ответ:

program Duck;

uses

 Math;

var

 A, B, a1, s: Int64;

 i: Integer;

 f: Boolean;

begin

 Write ('Введите А и В: ');

 ReadLn (A, B);

 f := False;

 s := Max (A, B);

 for i := 1 to s do begin

   a1 := A * i + 1;

   if (a1 + 1) mod B = 0 then begin

     f := True;

     Break;

   end;

 end;

 if f then

   WriteLn (a1)

 else

   WriteLn ('Решение не найдено.');

 ReadLn;

end.

Объяснение:

при очень больших значениях А и В время работы программы несколько минут.