Нужна с ответами на с/р по информатике.

1) переводишь целую часть по обычным правилам
2) дробную часть числа умножаешь на основание системы счисления (на 4 то бишь)
3) из получившегося числа: целая часть(цифра) - записать ее как очередной разряд (дробный) результирующего числа и отбросить
4) действия 2 и 3 повторять, пока дробная часть не станет = 0 или пока не будет достигнуто требуемое кол-во разрядов

пример: десятичное число 35,625 в четверичную сс
1) переводим целую часть: 35 в десятичной = 203 в четверичной
2) 0,625*4=2,5
 дописываем к числу 203,2 
 остается 0,5. продолжаем
3) 0,5*4=2
 203,22
дробная часть равна нулю, значит все
десятичное число 35,625 = четверичному числу 203,22

Var N, lastNum, mod5: integer;
  flag: boolean;
begin
  readln(N);
  lastNum := N mod 10;
  mod5 := N mod 5;
  flag := (lastNum = 5) or (lastNum = 0);
  if flag then
    writeln('Число ', N, ' делится на 5 по признаку делимости')
  else
    writeln('Число ', N, ' не делится на 5 по признаку делимости');
  if (mod5 = 0) then
    writeln('Число ', N, ' делится на 5 по определению')
  else
    writeln('Число ', N, ' не делится на 5 по определению');
  flag := flag xor (mod5 = 0);
  if flag then
    writeln('Результаты не совпадают, это не признак делимости!')
  else
    writeln('Результаты совпадают, это возможно признак делимости')
end.