Algoritmia - Algoritmo que finalice cuando entre un número impar

uses crt;

var

	suma,i,num:integer;

	prom:real;

begin

    clrscr;

    i:=1;

    suma:=0;

    repeat

		write('Ingrese un numero entero [para terminar digite un numero impar]: ');

		readln(num);

		if (num mod 2 = 0) then begin

			inc(i);

			suma:=suma + num;

		end;

	until (num mod 2 <> 0);

	prom:=suma / i;

	writeln;

	writeln('El promedio de los numeros es ',prom:2:2);

end.

INICIO

	i = 1

	suma = 0

	repetir

		leer(num)

		si (num mod 2 == 0)

			i = i + 1

			suma = suma + num

		fin-si

	hasta (num mod 2 <> 0)

	prom = suma / i

	imprimir('El promedio de los numeros es ',prom)

FIN