Pascal/Turbo Pascal - elabores un programa que haga la operación (a+b)*c

uses crt;

{ejercicio Nro1}

procedure positivo;

var

	num:integer;

begin

	write('Ingrese un numero: ');

	readln(num);

	if num > 0 then

		writeln(num,' es positivo')

	else

		writeln(num,' es negativo');

end;

{ejercicio Nro 2}

procedure operaciones;

var

	a,b,c:integer;

	resultado:integer;

begin

	a:=5; b:=10; c:=4;

	resultado:=(a+b)*c;

	writeln('El resultado de la operacion es ',resultado);

end;

begin

	clrscr;

	positivo;

	writeln;

	operaciones;

end.