Определить, делителем какаих чисел a,b,c являеться чило K

vara,b,c,k,n,i: integer; beginn: =0; readln (a); readln (b); readln (c); readln (k); if a mod k=0 thenwriteln ('kratno a=', a); if b mod k=0 thenwriteln ('kratno b=', b); if c mod k=0 thenwriteln ('kratno c=', c); end.