В первой нужно, во-первых, написать, чему равно s до цикла, а во-вторых, исправить первую строчку в цикле на s := s + d.
Во второй задаче можно воспользоваться операторами div и mod, которые дают соответственно частное и остаток при делении.