Составить программу нахождения суммы всех двухзначных чисел которые делятся на 5

Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
  begin
  if (x mod 5)=0 then s:=s+x;
  end;
writeln(s);
end.