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

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