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

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.