const pmi=65; pma=90; var f1,f2:text; i:integer; a,aa:string; begin Assign(f1,'text.in'); Reset(f1); readln(f1,a); for i:=1 to length(a) do begin if ord(a[i])<=pma then begin if a[i]=' ' then begin aa:=aa+' ' ; end else if (ord(a[i])>=pmi) then aa:=aa+Chr(ord(a[i])+32) end else begin aa:=aa+Chr(ord(a[i])); end; end; if ord(aa[1])>90 then aa[1]:=Chr(ord(aa[1])-32); close(f1); Assign(f1,'text.out'); Rewrite(f1); write(aa); write(f1,aa); close(f1); end.