Определить,делителем каких чисел а,в,с является число к. (в паскале)

Если задание действительно правильно задано, то вот:

Program Zadacha;
Var K: Integer;
Begin
Write('K = ');
ReadLn(K);
WriteLn('A = ', K * 2);
WriteLn('B = ', K * 3);
WriteLn('C = ', K * 4);
ReadLn;
End.