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

Program znaniacomVar 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.