Вот решение на паскале:

var a,b,c :integer;

var r :char

Begin

readln(a);

readln(b);

readln(c);

if a > b then

r := 'a'

else

Begin

r := 'b';

a := b;

end;

if a > c then

r := 'b'

else

r := 'c';

writeln(r);

End.