Program logicander;
Uses WinCrt;
Var
opc : integer;
a, b, re : integer;
begin
WriteLn ( 'Menu de Matematica' );
WriteLn ( '1.- Suma' );
WriteLn ( '2.- Resta' );
WriteLn ( '3.- Multiplicacion' );
WriteLn ( 'Ingrese una opcion' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
re:= a+b;
WriteLn ( 'El resultado de la suma es: ', re);
end;
If opc=2 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b');
ReadLn (b);
re:= a-b;
WriteLn ( 'El resultado de la resta es: ', re);
end;
If opc=3 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
re:= a*b;
WriteLn ( 'El resultado de la multiplicacion es: ', re);
end;
end.
