Сцикла for вычислить и вывести на экран все остатки от деления на 5 от 20 до 30

Var x,i: integer;
begin
  for i:=20 to 30 do
   begin   x:=i mod 5;
   writeln(x);
   end;
end.