Написать программу: компьютер задумал целое положительное число, промежутки от 0 до 100. определить кратно ли оно 5.

Program prog;
Uses crt;

var a: integer;

Begin
Clrscr;
Randomize;

a:=random(101);
writeln('Число a = ', a);
if (a mod 5)=0 then
   writeln('Число кратно 5')
   else
   write('Число не кратно 5');
   readln;
end.