Дана строка из цифр: определить делится ли число записанное в строке на 75?

{Дана строка длины 100 символов, содержащая только цифры от 0 до 9. Составьте и
исполните программу для определения, делится ли записанное в строке число на 75.}
{Число делится на 75, если оно делится на 3 и на 25.
Число делится на 25, если оно заканчивается на следующие комбинации цифр: 00, 25, 50, 75.
проверку делимости на 3 (если сумма всех цифр числа делится на 3, то и всё число делится на 3)}
 
var
  s: string[100];
  i, n, code: integer;
  sum: longint;
 
begin
  readln(s);
  sum := 0;
  for i := 1 to length(s) do
  begin
    val(s[i], n, code);
    if code = 0 then
      sum := sum + n;
  end;
  if ((s[length(s) - 1] + s[length(s)] = '00') or (s[length(s) - 1] + s[length(s)] = '25') or
    (s[length(s) - 1] + s[length(s)] = '50') or (s[length(s) - 1] + s[length(s)] = '75')) and
    (sum mod 3 = 0) then
    writeln('Делится на 75')
  else 
    writeln('Не делится на 75');
end.

var
  s: String;
  i: Integer;
  sm: Longint;
begin
  ReadLn(s); sm:=0;
  for i:=1 to Length(s) do sm:=sm+Ord(s[i])-Ord('0');
  WriteLn('Делится на 75: ',(sm mod 3=0) and 
    ((Ord(s[Length(s)-1])*10+Ord(s[Length(s)])-11*Ord('0')) mod 25=0));
end.