Algoritmia - algoritmo

uses crt;

var

	a,b:integer;

begin

	clrscr;

	writeln('Ingresar dos numeros de un digito');

	write('Primer numero: ');

	readln(a);

	write('Segundo numero: ');

	readln(b);

	if (a < 10) and (b < 10) then

		if a > b then

			writeln(a*10+b*1)

		else

			writeln(b*10+a*1)

	else

		writeln('Numeros incorrectos');

end.