Ajuda com código de calculadora.

[celso judson]

Ola, queria saber se alguem pode me ajudar, o seguinte codigo esta dando erro e não consigo identificar:

program Project_calculadora_com_case;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var N1,N2,N3,N4 :INTEGER;
var operacao :char;
var result :real;

begin
    begin
      WRITELN('DIGITE N1');
      READLN(N1);
      WRITELN('DIGITE N2');
      READLN(N2);
      WRITELN('DIGITE N3');
      READLN(N3);
      WRITELN('DIGITE N4');
      READLN(N4);

    end;

Begin

      case operacao of

  '+': result:=(N1+N2+N3+N4);
  '-': result:=(N1-N2-N3-N4);
  '*': result:=(N1*N2*N3*N4);
  '/': result:=(N1/N2/N3/N4);
end;
   writeln ('o resultado é', result:2:2);
   readln;
end.

O erro que está dando é o seguinte:

[error] Project_calculadora_com_case.dpr(36): Record, object or class type required
[error] Project_calculadora_com_case.dpr(39): ‘END’ expected but endo f file found

[Simon Viegas]

Olá celso judson.

Ola, queria saber se alguem pode me ajudar, o seguinte codigo esta dando erro e não consigo identificar:

{$APPTYPE CONSOLE}

uses
SysUtils;

var N1,N2,N3,N4 :INTEGER;
var operacao :char;
var result :real;

begin
begin
WRITELN('DIGITE N1');
READLN(N1);
WRITELN('DIGITE N2');
READLN(N2);
WRITELN('DIGITE N3');
READLN(N3);
WRITELN('DIGITE N4');
READLN(N4);

end;

Begin

case operacao of

'+': result:=(N1+N2+N3+N4);
'-': result:=(N1-N2-N3-N4);
'*': result:=(N1*N2*N3*N4);
'/': result:=(N1/N2/N3/N4);
end;
writeln ('o resultado é', result:2:2);
readln;
end.

program Project_calculadora_com_case;

O erro que está dando é o seguinte:

[error] Project_calculadora_com_case.dpr(36): Record, object or class type required
[error] Project_calculadora_com_case.dpr(39): ‘END’ expected but endo f file found

Vamos aos pontos:

1. O case tem um end também. (faltou isso)
   
2. Só precisa declarar o var uma vez. (mas não dá erro)
   
3. Só precisa de begin/end do programa principal (mas não dá erro)

No aguardo.

Abraços