pascal Deixe sua pergunta sobre algoritmos em pascal aki

[Est3gma 1]

program Impar;

var
  Soma, Cont: Integer;

begin
  Soma := 0;
  for Cont := 1 to 100 do
    begin
      if Cont mod 2 <> 0 then
        begin
          Soma := Soma + Cont;
        end ;
    end;
    Writeln('A soma dos numeros impares de 1 a 100 e:',Soma);
readln;
end.

opa galera queria saber se esse meu algoritmo para saber a somatório de números ímpares entre 1 até 100 está certo muito obrigado (a) pela atenção