Найти сумму целых положительных чисел, больших 20, меньше 100 и кратных 9 — Pascal(Паскаль)

var
 sum,j:integer;
begin
 sum:=0; 
 for j:=21 to 99 do
  if j mod 9 = 0 then Sum:=Sum+j;
 writeln(sum);
end.