[SOLUCIONADO] Problema en pascal

[Mario Olivera]

 Hola tengo un problema en un simple código de pascal, les dejo el código, el error es que me dice que el indentificador suma esta duplicado, eso es lo que entiendo, Saludos!

Código (pascal) [Seleccionar] Expandir

program suma;

var resta,a,b,c,suma,multiplicacion:real;

BEGIN
write('primer numero: ');
read(a);
writeLn('segundo numero: ');
read(b);
writeLn('tercer numero: ');
read(c);
suma:= a+b+c;
writeLn('resultado suma', suma);
multiplicacion:=  a*b*c;
writeLn('Multiplicacion ' multiplicacion);
resta:= (a+b) - c;
writeLn('Resta ', resta);
END.

[engel lex]

no se de pascal, pero seguro este es el problema

declaras el programa llamado suma

Código (pascal) [Seleccionar] Expandir

program suma;

y luego declaras una variable llamada igual

Código (pascal) [Seleccionar] Expandir

var resta,a,b,c,suma,multiplicacion:real;

[Mario Olivera]

no se de pascal, pero seguro este es el problema

declaras el programa llamado suma

Código (pascal) [Seleccionar] Expandir

program suma;

y luego declaras una variable llamada igual

Código (pascal) [Seleccionar] Expandir

var resta,a,b,c,suma,multiplicacion:real;

Pues parece que se soluciono eso pero sigue tirando errores :S

[engel lex]

publica los errores copy&paste del compilador

[Mario Olivera]

publica los errores copy&paste del compilador

" expected but "identifier MULTIPLICACION" found

Le faltaba en la expresion write (' ' , multiplicacion)

[Bundor]

Yo aprendí con Pascal 
Ya no recuerdo muy bien, pero tengo por ahí cosas guardadas. El ide que usabamos era el embarcadero. Depende si era lazarus o embarcadero había que poner algunas cosas, pero ya no me acuerdo.

En embarcadero lo hacía así:

Código (pascal) [Seleccionar] Expandir


program EJER1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    num1:real;
    num2:real;
    res:real;


begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

    writeln('PROGRAMA 1');
    write('Introduce numero 1: '); read(num1);
    write('Introduce numero 2: '); read(num2);

    res:=num1+num2;
    writeln('El resultado es: ',res:2:2);

    if num1>num2 then
      begin
      writeln('El numero 1 es mayor');
      end
    else
      begin
      writeln('El numero 2 es mayor');
      end;

      readln;
      readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.