Определить первое целое число после 145, которое делиться на 13 и 23. в паскаль

Var x:integer; 
begin 
x:=145; 
repeat 
x:=x+1; 
until (x mod 13=0) and (x mod 23=0); 
writeln(x); 
end.