Вычислить сумму квадратов нечётных однозначных чисел в программе паскаль abc

Begin
var i,s,d:integer;
s:=0;
for i:=1 to 9 do
if (i mod 2 <>0) then begin d:=sqr(i);s:=s+d; end;
writeln(s);
end.