[eXplorer]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,k:integer;
begin
a:=53; //тут как
b:=645; // я понял
c:=4232; //любые
k:=2; //числа
if a mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(a)); //проверка a mod k 
if b mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(b)); //проверка b mod k 
if c mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(c)); //проверка c mod k 
end;
end.