Найти сумму положительных чисел меньше 50 — Pascal(Паскаль)

Program b;
var
 i,s:integer;
begin
 for i:=1 to 50 do   {Цикл от 1 до 50 (включая 50)}
  if i mod 2=5 then  {Проверка на  нечётность}
   s:=s+i;
  Writeln('Cymma =' ,s);
  readln;
end.