Deixe sua pergunta sobre algoritmos em pascal aki

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;

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