yazid

program mohamedounsi;
uses wincrt;
var
x:integer;
ch,ch1,U:string;
Begin
	writeln('saisir le nom');
	readln(ch);
	x:=pos(' ',ch);
	ch1:=copy(ch,x+1, length(ch)-x);
	U:=upcase (ch[1])+upcase(ch[x+1])+ch1;
	writeln(U);
end.