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.