Pascal/Turbo Pascal - Urgente programa basico

Les queri a preguntar como harian mejor un programa que sumaralos numeros del 486.488.490, hasta el 800
que estructura me sugieren ya que estamso haciendo un pseudocdigo basico

podrias utilizar la sentencia FOR por ejemplo:
var num, sumanum:integer;
begin
sumanum:=0;
for num:= 486 to 800 do
sumanum:=sumanum+num;
end;
ahora solo lo tendrias que traducir a seudocodigo, espero que te halla sido util.

La respuesta de daniel eugenio aguil me parece erronea porque si creo entender bien quereis sumar unicamente los números pares, y la sentencia for incrementa la variable en una unidad en cada iteración. Yo aconsejaria un codigo como el siguiente, en el que se incrementa el número a sumar en dos unidades cada vez

var num, suma:longint;
begin
suma:=0;
num:=486;
while num<=800 do begin
suma:=suma+num;
inc(num, 2); //incrementa el número en dos unidades
end; end.