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

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