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

Program zadanie;
Var a,b:integer;
Begin
 Writeln('Введите два целы числа');
 Readln(a,b);
 If a mod b =0 Then Writeln('Первое число делится на второе:',a div b)
 Else Writeln('Первое число не делится на второе');
End.