Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.26 KB | None | 0 0
  1. var
  2.   n,m,i,j : int64;
  3.   a : array [1..1000] of int64;
  4. begin
  5.   readln(n,m);
  6.   for i:=1 to n do read(a[i]);
  7.   for i:=1 to n-1 do
  8.     for j:=m+1 to 1000000 do
  9.     if j mod a[i]=0 then
  10.       begin
  11.         m:=j;
  12.         break;
  13.       end;
  14.   writeln(m+1);
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement