ввести натур.чисдо n,найти является ли онл кратным k. программку в паскаль

в if

Program znaniacom
Var a, b:longint;
Begin
WriteLn('Введите нат. число n');
ReadLn(a);
WriteLn('Введите нат. число k');
ReadLn(b);
Case (a mod b) of
0: writeLn('Число n делится на число k')
Else writeLn('Число n НЕ делится на число k');
End;
Sleep(2000);
End.