№2 тема 5 пункт 2

program t5p2n2;

var n,min: integer;

begin

n:=8000;

repeat

n:=n+1;

if (n mod 47 = 0) then

min:=n;

until n=min;

writeln (min);

readln

end.