Безотлагательно ПОМОГИТЕ ДАЮ ЗА Исполненье 77 БАЛЛОВ надо сделать в паскале

var

 n: Integer;

begin

 Write ('Введите число: ');

 ReadLn (n);

 if n mod 5 = 0 then         // проверка делимости на 5

   Writeln ('Целая часть от дробления на 5 = ', n div 5)  // вывод целой доли от разделенья

 else

   Write ('Число не делится на 5 без остатка');

end.