Pascal/Turbo Pascal - consulta

HOLA:
Me pueden ayudar a resolver que imprime cada instruccion write.
y otra cosa q no entiendo es cual es el valor inicial de la variable dos

program imprimir
var uno, dos, tres, cuatro, cinco

function sumatoria(a, b:integer)
var i aux: intteger
begin
if (=> 8) then
aux:=0
for i:= 1 to b do; aux:=aux+ a
sumatoria:=aux
end
else sumatoria:=b*(-1)
end

procedure resolver (uno:integer; var dos:integer; var tres:integer; var cuatro :integer cinco:integer)
begin
dos:=uno +(uno mod tres)
tres:= dos - 50
uno:=cinco div dos
cuatro:= uno + dos + cinco
cinco:= sumatoria ( cuatro , tres)
end

begin
uno:=3; tres:= 3; cuatro:= 30; cinco:=5
resolver (cinco, dos, tres, uno, cuatro)
write(uno); write(dos); write (tres); write (cuatro); write(cinco)
end

Hola Paula! Te pido si puedes escribir todo el código correctamente, ya que faltan puntuaciones, hay errores como por ejemplo una declaración de tipo inTTeger, en la función sumatoria no está indicado el tipo de dato que ésta devuelve, e incluso un error más notorio que donde dice >>> if (=> 8) then <<< no está bien hecha la comparación, ya que falta la variable y el operador de MAYOR O IGUAL es >= y no =>. Cuando lo pases bien lo podré completar. Un beso!

Este código fuente está plagado de errores de sintaxis, lo más notorio es que faltan los punto y coma que cierran cada sentencia.
Las variables globales "uno", "dos", "tres", "cuatro" y "cinco" no tienen tipo alguno.
La función "sumatoria" no tiene tipo de retorno especificado.
Además de los errores especificados por Carlos.