Pascal: Cума квадратів всіх двозначних непарних чисел, які діляться на 3 та їх кількість

большое спасибо)

program skv;vars, c, i: integer;beginc := 0;s := 0;for i := 10 to 99 doif (i mod 2 = 1) and (i mod 3 = 0) thenbegins := s + i;c := c + 1;end;writeln('Сума: ', s);writeln('Кількість: ', c);end.