--programa que verifica el uso correcto de parametros

package errorp is


	procedure proc(a:integer;b:character) is
	i:integer;
	begin
		i:=a;
		write(i);write(' ');write(b);
		writeln;
		read(i);
	end;
	
	procedure proc1(a,b:integer;c,d:character;e:integer) is --solo se pueden tener un maximo de 4 parametros
	i:integer;
	begin
		i:=a;
		write(i);write(' ');write(b);
		writeln;
		read(i);
	end;
	
begin
	--proc(12,12); --los parametros deben ser integer y character
	proc(12,'a');
end;