program FindNumber;

var
number: integer;

begin
number := 146;

while (number mod 13 <> 0) or (number mod 23 <> 0) do
begin
number := number + 1;
end;

writeln('The first number after 145 that is divisible by 13 and 23 is: ', number);
end.